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1 从 函数 到 简单 对 芬 


对 面向 对 象 编程 语言 的 探索 从 我 们 于 PLAI (《 编 程 语言 : 应 用 和 解释 》) 中 所 学 到 
的 、 以 及 对 于 什么 是 对 象 的 直觉 开始 。 


1.1 有 状态 函数 与 对 象 模 式 


对 象 的 目的 是 ， 将 状态 (可 外 但 不 一 定 是 可 变 的 ) 连同 依赖 于 该 状态 的 行为 一 起 封 
装 在 一 致 的 整体 中 。 这 里 的 状态 通常 被 称 为 字段 (field) (或 实例 变量 (instance 

variable)) ， 而 行为 才 汉 方法 method) 形式 提供 。 调 用 方法 通常 被 称 为 ; 消息 传递 

(message passing) : 发 送 消息 给 对 象 ， 如 果 它 理解 了 ， 就 执行 相关 的 方法 。 


在 Scheme 这 样 的 高 级 编程 语言 中 ， 我 们 看 到 过 类 似 的 东西 : 


(define add 
(和 A (n) 
(和 A (m) 
(+ m n)))) 


> (define add2 (add 2)) 
> (add2 5) 
7 


ee er 
上 说 ， 闭 包 是 一 种 对 象 ， 他 的 字段 是 (函数 体 中 的 ) 自由 变量 。 那 么 其 行为 呢 ? 好 
吧 ， 闭 包 只 有 一 个 行为 ， 通 过 函数 调用 触发 (从 消息 传递 的 角度 来 看 ，apply( 调 用 ) 
是 函数 能 理解 的 唯一 消息 ) 。 


如 果 语 言 支持 赋值 ( set! ) ， 那 么 我 们 就 得 到 了 有 状态 的 函数 ， 可 以 改变 状态 : 


(define counter 
(let ([count 0]) 
(A () 
(begin 
(set! count (add1 count)) 
count ) ) ) ) 


现在 我 们 可 以 观察 到 count 状 态 的 变化 : 


> (counter) 
1 
> (counter) 
2 


现在 ， 如 果 我 们 想 要 双向 计数 器 呢 ? 该 函数 必须 能 够 在 其 状态 上 执行 +1 或 者 -1， 取 
决 于 ...... 好 吧 ， 参 数 ! 


(define counter 
(let ([count 0]) 
(和 A (cmd) 
(case cmd 
[(dec) (begin 
(set! count (sub1 count)) 
count)] 
[(inc) (begin 
(set! count (add1 count)) 
count )])))) 


请 注意 counter 如 何 使 用 cmd 来 区 分 要 执行 的 操作 。 


(counter "inc) 


(counter 'dec) 


这 看 起 来 很 像 有 两 个 方法 和 一 个 实例 变量 的 对 象 ， 不 是 吗 ? 我 们 再 来 看 一 个 例子 ， 
堆栈 。 


(define Stack 
(let ([vals '()]) 
(define (pop) 
(if (empty? vals) 
(error "cannot pop from an empty stack") ;无 法 从 空 栈 中 po 


p 
(let ([val (car vals)]) 
(set! vals (cdr vals)) 
val))) 
(define (push val) 
(set! vals (cons val vals))) 
(define (peek) 
(if (empty? vals) 
(error "cannot peek from an empty stack") ;无 法 从 空 栈 中 p 
eek 


(car vals))) 


(入 (cmd . args) 
(case cmd 


[(pop) (pop)] 
[(push) (push (car args))] 


[(peek) (peek)] 
[else (error "invalid command")])))) ;无 效 的 命令 


这 里 ， 我 们 没有 直接 在 lambda 中 编写 方法 体 ， 而 是 使 用 了 内 层 的 define。 另 外 请 注 
意 ， 我 们 在 lambda 的 参数 中 使 用 了 点 符号 : 这 样 函数 就 能 够 接收 一 个 参数 (cmd) 
以 及 零 或 多 个 额外 参数 (以 链表 形式 在 函数 体 中 绑 定 到 args) 。 

试 试看 : 

(stack 'push 1) 

(stack 'push 2) 

(stack 'pop) 

(stack 'peek) 


(Stack 'pop) 


VPVPVDVVV 


(stack 'pop) 
cannot pop from an empty stack 


这 代码 的 模式 已 经 很 明显 了 ， 可 以 用 来 定义 类 似 于 对 象 的 抽象 。 更 明确 地 抽象 此 模 
式 : 


(define point 
(let ([x 0]) 
(let ([methods (list (cons 'x? (A () x)) 
(cons 'x! (入 (nx) (set! x nx))))]) 
(入 (msg . args) 
(apply (cdr (assoc msg methods)) args))))) 


请 注意 这 里 定义 的 A， 它 以 一 种 通用 的 方式 将 消息 分 发 到 正确 的 方法 。 我 们 首先 把 
所 有 的 方法 都 放 在 一 个 关联 链表 ( 即 元 素 为 pair 的 链表 ) 中 ， 将 符号 (也 就 是 消 
息 ) 关联 到 相应 的 方法 。 当 调用 point 时 ， 我 们 (用 assoc) 查找 消息 ， 得 到 相应 的 
方法 。 然 后 调用 它 。 


> (point 'x! 6) 
> (point 'x?) 
6 


1.2 Scheme 中 的 〈 第 一 种 ) 简单 对 象 系统 


我 们 可 以 用 宏 在 Scheme 中 散 入 一 个 遵循 上 面 确 定 的 模式 的 简单 对 象 系 统 。 


请 注意 ， 在 本 书 中 我 们 使 用 defmac 来 定义 宏 。defmac 类 似 
于 define-syntax-rule ， 但 是 它 还 支持 关键 字 和 参数， 外 加 标识 符 捕 获 ( 通 
过 #:keywords 和 #:captures 可 选 参数 ) 


(defmac (OBJECT ([field fname init] ...) 
([method mname args body] ...)) 
#:keywords field method 
(let ([fname init] ...) 
(let ([methods (list (cons 'mname (入 args body)) ...)]) 
(入 (msg . vals) 
(apply (cdr (assoc msg methods)) vals))))) 


我 们 还 可 以 定义 箭头 -> 符号 表示 发 送 消息 给 对 象 ， 例 如 (-> st push 3) 


(defmac (-> Oomarg ...) 
(oO 'm arg ...)) 


现在 就 可 以 使 用 这 个 对 象 系统 来 定义 二 维 点 对 象 了 : 


(define p2D 

(OBJECT 

([field x 0] 
[field y 0]) 

([method x? () x] 
[method y? () yj 
[method x! (nx) (set! x nx)] 
[method y! (ny) (set! y ny)]))) 


这 么 使 用 : 


> p2D x! 15) 
(-> p2D y! 20) 
> p2D x?) 


> (-> p2D y?) 


1.3 构造 对 象 


到 目前 为 止 ， 我 们 的 对 象 都 是 作为 独立 样本 被 创建 。 如 果 我 们 想 要 多 个 点 对 象 ， 每 
个 可 以 有 不 同 的 初始 坐标 呢 ? 


在 函数 式 编程 的 语 境 中 ， 我 们 知道 如 何 正确 地 创建 各 种 类 似 的 函数 : 使 用 高 阶 函 
数 ， 带 上 合适 的 参数 ， 其 作用 是 返回 我 们 想 要 的 特定 实例 。 例 如 ， 从 前 面 定 义 的 
add 兄 数 中 ， 我 们 可 以 获得 各 种 单 参数 加 法 函数 : 


(define add4 (add 4)) 
(define add5 (add 5)) 
(add4 1) 


OVOV VV 


(add5 1) 


因为 我 们 的 简单 对 象 系统 根植 于 Scheme， 所 以 可 以 简单 地 使 用 高 阶 函 数 来 定义 对 
象 工厂 (object factory) 


JavaScript ， AmbientTalk 


(define (make-point init-x init-y) 
(OBJECT 
([field x init-x] 
[field y init-y]) 
([method x? () x] 
[method y? () yj 
[method x! (new-x) (set! x new-x)] 
[method y! (new-y) (set! y new-y)]))) 


make-point 函数 的 参数 是 初始 坐标 ， 返 回 新 创建 的 、 正 确 地 初始 化 后 的 对 象 。 


> (let ([pi (make-point 5 5)] 
[p2 (make-point 10 10)]) 
(-> pi x! (-> p2 x?)) 
(-> p1 x?)) 


10 


1.4 动态 分 发 


我 们 的 简单 对 象 系统 就 足以 展示 面向 对 象 编程 的 基本 特性 : 动态 分 发 。 请 注意 ， 在 
下 面 的 代码 中 ，node (节点 ) 将 Sum 消息 发 送 给 每 个 子 节点 ， 并 不 知道 它们 是 
leaf ( 叶 节 点 ) 还 是 node : 


(define (make-node 1 r) 
(OBJECT 
([field left 1] 
[field right r]) 
([method sum () (+ (-> left sum) (-> right sum))]))) 


(define (make-leaf v) 
(OBJECT 
([field value v]) 
([method sum () value]))) 


> (let ([tree (make-node 
(make-node (make-leaf 3) 
(make-node (make-leaf 10) 
(make-leaf 4))) 
(make-leaf 1))]) 
(-> tree sum)) 


18 


尽管 看 起 来 很 简单 ， 这 个 对 象 系统 已 经 足以 说 明 对 象 的 基本 抽象 机 制 ， 以 及 它 和 拍 
象 数据 类 型 abstract data type) 的 区 别 。 参 见 第 三 章 。 


1.5 错误 处 理 
让 我 们 看 看 ， 如 果 发 送 消息 给 不 知道 如 何 处 理 它 的 对 象 会 发 生 什么 


> (let ([1 (make-leaf 2)]) 
(-> 1 print)) 
cdr: contract violation 
expected: pair? 
given: #f 





这 个 错误 信息 很 糟糕 
哪 


我 们 可 以 改变 OBJECT 语法 抽象 的 定义 ， 正 确 地 处 理 未 知 消息 : 


它 将 我 们 的 实现 策略 暴露 给 程序 员 ， 而 且 没 有 提示 问题 在 


(defmac (OBJECT ([field fname init] ...) 
([method mname args body] ...)) 
#:Kkeywords field method 
(let ([fname init] ...) 
(let ([methods (list (cons 'mname (入 args body)) ...)]) 
(入 (msg . vals) 
(let ([found (assoc msg methods)]) 
(if found 
(apply (cdr found) vals) 

(error "message not understood:" msg))))))) ;未知 的 

消息 


我 们 不 再 假设 在 对 象 的 方法 表 中 会 有 消息 关联 的 方法 ， 而 是 首先 查找 并 将 结果 绪 定 
到 found ; 如 果 找 不 到 方法 ，found 将 会 是 订 。 在 这 种 情况 下 ， 我 们 给 出 有 意义 的 错 


误 信 息 . 


确实 好 多 了 : 


> (let ([1 (make-leaf 2)]) 
(-> 1 print)) 
message not understood: print 


本 章 ， 我 们 成 功 地 在 Scheme 中 花 入 了 一 个 简单 的 对 象 系统 ， 它 显示 了 词法 作用 域 
的 一 等 函数 和 对 象 之 间 的 连接 。 但 是 ， 我 们 还 远 没 有 完成 ， 目 前 的 对 象 系统 仍然 不 
完整 且 非 常 原始 。 


1. 从 函数 到 简单 对 瘟 


10 


2 了 姓 找 Self 


在 前 一 章 中 ， 我 们 构建 了 一 个 简单 的 对 象 系统 。 现 在 我 们 来 考虑 为 点 对 象 定义 
above 方 法 ， 它 读 入 的 参数 是 另 一 个 点 ， 返 回 更 高 的 (从 y 轴 角度 看 ) 点 : 


(method above (other-point) 
(if (> (-> other-point y?) y) 
other-point 
self)) 


请 注意 ， 我 们 直观 地 使 用 self 来 表示 当前 正在 执行 的 对 象 ; 在 其 他 有 些 语言 中 ， 它 
被 称 为 this。 显 然 ， 我 们 对 OOP 的 描述 并 没有 告诉 我 们 self 是 什么 。 


2.1 Self 是 什么 ? 


回 过 头 看 看 最 初 那个 对 象 的 定义 (没有 宏 的 那个 ) 。 对 象 是 函数 ; 所 以 我 们 想 要 的 
是 在 这 个 函数 范围 内 能 够 引用 自己 。 该 怎么 做 呢 ? 研究 递归 的 时 候 我 们 已 经 知道 答 
案 了 |! 只 需 使 用 递归 绑 定 (letrec) 给 函数 一 对 象 命 名 ， 然 后 就 可 以 在 方法 定义 中 
使 用 了 : 


(define point 
(letrec ([self 
(let ([x 0]) 
(let ([methods (list (cons 'x? (A () x)) 
(cons 'x! (入 (nx) 
(set! x nx) 


self)))]) 
(入 (msg . args) 
(apply (cdr (assoc msg methods)) args))))]) 
self)) 


请 注意 ，letrec 的 主体 就 返回 sef， 它 绑 定 到 我 们 定义 的 递归 子 程序 。 


> ((point 'x! 10) 'x?) 
10 


在 Smalltalk 语 言 中 ， 方 法 默认 返回 self。 


请 注意 ， 赋 值 方法 x! 返回 self， 这 使 得 我 们 可 以 链 式 传递 消息 。 


2.2 用 宏 实 现 Self 


在 我 们 的 OBJECT 宏 中 使 用 上 述 模式 : 


(defmac (OBJECT ([field fname init] ...) 
([method mname args body] ...)) 
#:keywords field method 
(letrec ([self 
(let ([fname init] ...) 
(let ([methods (list (cons 'mname (入 args body)) 


')]) 
(入 (msg . vals) 
(apply (cdr (assoc msg methods)) vals))))]) 
self)) 
(defmac (-> om arg ...) 


(oO 'm arg ...)) 


用 一 些 点 对 象 试 试 : 


(define (make-point init-x) 
(OBJECT 
([field x init-x]) 
([method x? () x] 
[method x! (nx) (set! x nx)] 
[method greater (other-point) 
(if (> (-> other-point x?) x) 
other-point 


self)]))) 


> (let ([pi (make-point 5)] 
[p2 (make-point 2)]) 
(-> pi greater p2)) 
self: undefined; 
cannot reference undefined identifier 


什么 ? ?我 们 明明 用 |etrec 定 义 了 self， 为 什么 报错 说 它 没有 定义 呢 ? 了 原因 是 一 一 卫 
生 ! 要 知道 Scheme 的 syntax-rules 是 卫生 的 ， 因 此 ， 它 会 透明 地 重 命名 宏 引 入 的 所 
有 标识 符 ， 以 确保 在 宏 展开 后 他 们 不 会 意外 绑 定 或 者 被 绑 定 。 使 用 DrRacket 的 宏 步 
进 器 (macro stepper) 可 以 很 清楚 地 观察 到 这 一 点 。 你 会 看 到 ，greater 方 法 中 的 
self 标 识 符 与 letrec 表 达 式 中 的 同名 标识 符 的 颜色 不 同 。 


幸运 的 是 ，defmac 支 持 一 种 方法 ， 指 定 宏 本 身 引 入 的 标识 符 也 可 以 被 用 户 代码 使 
用 。 这 里 我 们 唯一 需要 做 的 是 指定 self 就 是 这 样 的 标识 符 : 


(defmac (OBJECT ([field fname init] ...) 
([method mname args body] ...)) 
#:keywords field method 
#:captures self 
(letrec ([self 
(let ([fname init] ...) 
(let ([methods (list (cons 'mname (入 args body)) . 
…)] ) 
(入 (msg . vals) 
(apply (cdr (assoc msg methods)) vals))))]) 
self)) 


2.3 用 到 Self 的 点 对 办 
现在 我 们 可 以 定义 种 种 方法 ， 或 返回 self， 或 在 方法 体 中 使 用 self : 


(define (make-point init-x init-y) 
(OBJECT 
([field x init-x] 
[field y init-y]) 
([method x? () x] 
[method y? () y] 
[method x! (new-x) (set! x new-x)] 
[method y! (new-y) (set! y new-y)] 
[method above (other-point) 
(If (> (-> other-point y?) y) 
other-point 
self)] 


[method move (dx dy) 
(begin (-> self x! (+ dx (-> self x?))) 
(-> self y! (+ dy (-> self y?))) 
sel1f)]))) 


(define pi (make-point 5 5)) 
(define p2 (make-point 2 2)) 


(-> (-> p1 above p2) x?) 


(-> (-> pi move 1 1) x?) 


OVOV 


2.4 互相 递归 的 方法 


上 一 节 已 经 表明 ， 方 法 可 以 通过 向 self 发 送 消息 来 使 用 其 他 方法 。 这 个 例子 展示 相 
互 递归 的 方法 。 


请 在 Java 中 尝试 相同 的 定义 ， 然 后 比较 “大 ”数字 的 结果 。 是 啊 ， 我 们 的 简单 对 
象 系统 确实 从 尾 调用 优化 中 受益 了 ! 


(define odd-even 
(OBJECT () 
([method even (n) 
(case n 
[(9) #t] 
[(1) #f] 
[else (-> self odd (- n 1))])] 
[method odd (n) 
(case n 
[(9) #f] 
[CT td 
[else (-> self even (- n 1))]1)]1))) 


> (-> odd-even odd 15) 
#t 

> (-> odd-even odd 14) 
#f 

> (-> odd-even even 14) 
#t 


我 们 现在 的 对 象 系统 支持 self， 和 包括 返回 self、 发 送 消息 给 self。 请 注意 ， 方 法 中 使 
用 的 Self 是 在 对 象 创 建 时 被 绑 定 的 : 在 方法 被 定义 时 ， 它 们 捕获 对 self 的 绑 定 ， 此 后 
该 绑 定 就 被 固定 了 。 我 们 将 在 下 面 的 草 节 中 看 到 ， 如 果 想 要 支持 委托 ， 或 者 想 要 支 
持 类 ， 这 就 行 不 通 了 。 


2.5 髓 套 的 对 象 


对 象 和 方法 最 终 被 编译 成 Scheme 中 的 lambda， 因 此 我 们 的 对 象 继承 了 一 些 有 趣 的 
属性 。 首 先 ， 正 如 我 们 所 看 到 的 ， 它 们 是 一 等 公民 (不然 这 一 切 还 有 意思 吗 ? ) 。 
另外 ， 正 如 我 们 刚刚 看 到 的 ， 尾 位 置 的 方法 调用 被 视 为 尾 调用 ， 因 此 空间 没有 浪 
费 。 接 下 来 讨论 另 一 个 好 处 : 我 们 可 以 使 用 高 阶 的 编程 模式 ， 比 如 产生 对 象 的 对 象 
(通常 称 为 工厂 ) 。 换 一 种 说 法 ， 运 用 合适 的 词法 范围 ， 我 们 可 以 定义 瞬 套 的 对 
象 。 


考虑 如 下 的 例子 : 


(define factory 

(OBJECT 
([field factor 1] 

[field price 10]) 
([method factor! (nf) (set! factor nf)] 

[method price! (np) (set! price np)] 

[method make () 

(OBJECT ([field price price]) 
([method val () (* price factor)]))]))) 


> (define o1 (-> factory make)) 
> (-> 01 val) 


factory factor! 2) 
o1 val) 


(-> factory price! 20) 
(-> 01 val) 


(define 02 (-> factory make)) 
> (-> 02 val) 

40 

在 Java 中 你 能 这 么 做 吗 ? 


请 验证 这 些 返 回 。 


3 对 象 的 好 处 和 局 限 性 


在 编程 语言 的 课程 中 ， 我 们 这 样 编程 : 定义 数据 类 型 及 其 变 体 ， 在 此 之 上 定义 操作 
这 些 结构 体 的 各 种 “服务 ”， 所 谓 服务 也 即 对 这 些 数据 结构 的 各 种 变种 分 情况 进行 处 
理 的 子 程序 。 这 种 编程 风格 有 时 被 称 为 “过 程式 "或 “函数 设计 ”的 (注意 这 里 的 “ 交 
数 " 并 不 是 指 “ 无 副作用 的 ”| ) 。 


在 《程序 语言 : 应 用 和 解释 》 中 ， 我 们 用 define-type 来 定义 数据 类 型 及 其 变 
体 ， 用 type-case 实现 对 变种 按 情况 处 理 的 子 程序 。 这 种 编程 方法 在 其 他 语言 中 
也 很 常见 : C (联合 体 ) 、Pascal ( 变 体 类 型 ) 、ML 和 Haskell 的 代数 数据 类 型 、 纯 
Scheme 的 带 标记 数据 。 


那么 ， 面 向 对 象 编程 完 竟 给 我 们 提供 了 什么 呢 ? 它 的 缺点 是 什么 呢 ? 事实 证 明 ， 使 
用 面向 对 象 的 语言 并 不 意味 着 程序 就 是 “面向 对 象 "的 。 许 多 Java 程 序 就 不 是 ， 或 者 
至 少 是 牺牲 了 对 象 的 某 些 基本 好 处 的 。 


本 章 基 于 William R. Cook 2009 年 的 《On Understanding Data Abstraction， 
Revisited》 (再 谈 对 数据 抽象 的 理解 ) 一 文 。 


本 独立 章节 的 目的 是 ， 暂 时 从 逐步 构建 OOP 的 步骤 中 抽身 ， 转 而 对 比 面向 对 象 和 过 
程式 编程 ， 从 而 明确 每 种 方法 各 自 的 优 缺点 。 有 趣 的 是 ， 我 们 迄今 为 止 构 建 的 简单 
对 象 系统 完全 足够 研究 对 象 的 基本 好 处 和 局 限 性 了 一 -一 和 委托、 类、 继承 等 都 是 有 趣 
的 特性 ， 但 对 于 对 象 来 说 都 不 是 本 质 的 。 


3.1 抽象 数据 类 型 


我 们 先 来 讨论 抽象 数据 类 型 (ADT) 。ADT 是 隐藏 其 表示 、 只 提供 对 值 的 操作 的 数 
据 类 型 。 


例如 ， 整 数 的 集合 ADT 可 以 定义 如 下 : 


adt Set 是 
empty : Set 
insert : Set x Int -> Set 
isEmpty? : Set -> Bool 
contains? : Set x Int -> Bool 


这 种 整数 集 ADT 有 许多 可 能 的 表示 。 例 如 ， 可 以 使 用 Scheme 的 表 来 实现 它 : 


(define empty '()) 


(define (insert set val) 
(if (not (contains? set val)) 
(cons val set) 
set)) 


(define (isEmpty? set) (null? set)) 


(define (contains? set val) 
(if (null? set) #Tf 
(if (eq? (car set) val) 
#t 
(contains? (cdr set) val)))) 


客户 程序 可 以 使 用 ADT 值 ， 而 无 需 知道 底层 的 表示 法 : 


> (define x empty) 

> (define y (insert x 3)) 
> (define z (insert y 5)) 
> (contains? z 2) 

#f 

> (contains? z 5) 

#t 


我 们 也 可 以 用 另 一 种 表示 方式 来 实现 ADT 集 合 ， 比 如 使 用 PLAI 的 define-type 机 制 来 
创建 一 个 变 体 类 型 ， 将 集合 编码 为 链表 。 


(define-type Set 
[mtSet ] 
[aSet (val number? ) (next Set?)]) 


(define empty (mtSet ) ) 


(define (insert set val) 
(if (not (contains? set val)) 
(aSet val set) 
set)) 


(define (isEmpty? set) (equal? set empty)) 


(define (contains? set val) 
(type-case Set set 
[mtSet () #f] 
[aSet (v next) 
(if (eq? v val) 
#t 
(contains? next val))])) 


前 面 的 示例 客户 程序 运行 照 上 日 ， 即 使 现在 底层 表示 换 掉 了 : 


> (define x empty ) 

> (define y (insert x 3)) 
> (define z (insert y 5)) 
> (contains? z 2) 

#f 

> (contains? z 5) 

#t 


3.2 用 子 程序 表示 


我 们 也 可 以 把 集合 看 作 是 由 它 的 特征 函数 定义 : 该 函数 读 入 一 个 数字 ， 告 诉 我 们 这 
个 数字 是 否 是 集合 的 一 部 分 。 在 这 种 情况 下 ， 集 合 就 是 简单 的 Int -> Bool 驳 
数 。 (PLAI 一 书 中 ， 第 十 二 章 中 在 研究 环境 的 子 程序 表示 时 有 提 到 。) 


空 集 的 特征 函数 是 什么 ? 总 是 返回 假 的 函数 。 插 入 一 个 新 元 素 所 获得 的 集合 呢 ? 


(define empty (入 (n) #f)) 


(define (insert set val) 
(A (n) 
(or (eq? n val) 
(contains? set n)))) 


(define (contains? set val) 
(set val)) 


由 于 集合 由 其 特征 函数 表示 ， contains? 只 需 将 该 函数 应 用 于 该 元 素 。 请 注意 ， 
客户 程序 还 是 完全 不 受 干 扰 : 


> (define x empty ) 

> (define y (insert x 3)) 
> (define z (insert y 5)) 
> (contains? z 2) 

#f 

> (contains? z 5) 

#t 


集合 的 子 程序 表示 给 我 们 带 了 了 什么 ?了 灵活 性 1 例如， 我 们 可 以 定义 所 有 偶数 的 集 
合 : 


(define even 
(入 (n) (even? n))) 


我 们 前 面 考虑 的 任何 ADT 表 示 ， 都 不 能 完整 地 表示 这 个 集合 。 (为 什么 ? ) 我 们 其 
至 可 以 定义 非 确定 的 集合 : 


(define random 
(入 (n) (> (random) 0.5))) 


使 用 子 程序 表示 ， 我 们 可 以 更 自由 地 定义 集合 ， 此 外 它们 同样 可 以 与 已 有 的 集合 操 
作 交 互 ! 


> (define a (insert even 3)) 
> (define b (insert a 5)) 

> (contains? b 12) 

# 七 

> (contains? b 5) 

# 七 


相反 ， 在 上 面 我 们 看 到 的 ADT 表 示 中 ， 不 同 的 表示 法 之 间 不 能 互 操作 。 列 表 实 现 集 
合 的 值 不 能 被 结构 体 实 现 的 操作 使 用 ， 反 之 亦 然 。ADT 从 表示 中 抽象 出 来 ， 但 一 次 
只 允许 一 种 表示 。 


3.3 对 象 
从 本 质 上 讲 ， 函 数 实现 的 集合 就 是 对 象 ! 请 注意 对 象 并 未 抽象 出 类 型 : 函数 实现 的 


集合 的 类 型 非常 具体 : 它 是 Int -> Bool 的 函数 。 当 然 ， 正 如 我 们 在 前 面 的 章节 
中 看 到 的 ， 对 象 是 函数 的 泛 化 ， 它 可 以 有 多 个 方法 。 


3.3.1 对 象 的 接口 


我 们 可 以 定义 对 象 接 口 (interface) 的 概念 ， 也 就 是 某 个 对 象 所 有 方法 的 型 签 〈 类 
型 签名 ，signature ) 


interface Set 是 
contains? : Int -> Bool 
isEmpty? : Bool 


使 用 我 们 的 简单 对 象 系统 实现 集合 对 象 : 


(define empty 
(OBJECT () 
([method contains? (n) #f] 
[method isEmpty? () #t]))) 


(define (insert s val) 
(OBJECT () 
([method contains? (n) 
(or (eq? val n) 
(-> s contains? n))] 
[method isEmpty? () #f]))) 


请 注意 ，empty 是 个 对 象 ，insert 是 返回 对 象 的 工厂 函数 。 集 合 对 象 实 现 了 Set 接 
口 。 empty 对 象 不 包含 任何 值 ， 它 的 isEmpty? 返回 #t 。 insert 返回 一 个 
新 对 象 ， 它 的 contains? 方法 类 似 于 前 文中 集合 的 特征 函数 ， 而 isEmpty? 返 
回 #f 。 


客户 程序 中 ， 构 造 集合 部 分 不 用 变 ， 与 集合 对 象 交互 部 分 就 必须 用 消息 发 送 了 


(define x empty) 
(define y (insert x 3)) 
(define z (insert y 5)) 
(-> z contains? 2) 

#f 

> (-> z contains? 5) 

#t 


请 注意 ， 对 象 接 口 本 质 上 就 是 高 阶 类 型 : 方法 是 函数 ， 所 以 传递 对 象 就 是 传递 函数 
组 。 这 是 高 阶 函 数 式 编程 的 推广 。 面 向 对 象 的 程序 本 质 上 是 高 阶 的 。 

3.3.2 面向 对 象 编程 的 原则 

原则 : 对 象 只 能 通过 其 他 对 象 的 公共 接口 来 访问 它们 

一 旦 创建 了 对 象 ， 比 如 上 面 的 z (所 绑 定 的 ) ， et 做 的 就 是 通过 发 送 消 息 
进行 交互 。 不 能 “打开 对 象 "。 对 象 的 任何 属性 都 不 可 见 ， 可 见 的 只 有 它 的 接口 。 换 
一 种 说 法 : 

原则 : 对 象 只 对 自己 有 详细 的 了 解 


这 与 ADT 值 有 本 质 区 别 : 在 type-case 的 处 理 中 (回忆 一 下 ADT 实 现 中 

用 define-type 实现 的 contains? ) ， 我 们 打开 值 ， 从 而 直接 访问 其 属性 。 
ADT 提 供 封 装 ， 但 为 ADT 的 客户 提供 ; 不 为 其 实现 提供 。 对 象 在 这 方面 更 进一步 。 
即使 是 对 象 的 方法 ， 其 实现 也 不 能 访问 除 自身 以 外 对 象 的 属性 。 


由 此 我 们 可 以 得 出 另 一 个 基本 原则 : 
原则 : 对 象 就 是 所 有 对 其 可 能 进行 的 观测 的 集合 ， 这 些 观 测 通过 对 象 接口 定义 


这 是 一 条 强 原 则 ， 它 表明 ， 如 果 两 个 对 象 在 对 于 特定 实验 〈 即 一 组 观测 ) 表现 相 
同 ， 那 么 它们 应 该 是 不 可 区 分 的 。 这 意味 着 使 用 等 值 判定 操作 〈 如 指针 相等 ) 违反 
了 OOP 的 这 个 原则 。 使 用 Java 中 的 == ， 我 们 可 以 区 分 即使 是 行为 一 致 的 两 个 对 
象 O 


3.3.3 可 扩展 性 


上 述 原则 可 以 被 认为 是 OQOP 的 本 质 特 征 。 正 如 Cook 所 说 :“ 任 何 允 许 区 分 多 个 抽象 
表示 的 编程 模型 都 不 是 面向 对 象 的 ”。 


组 件 对 象 模型 (COM) 是 实践 中 最 纯粹 的 OO 编程 模型 之 一 。COM 遵 守 上 述 所 有 的 
原则 : 没有 内 置 的 相等 性 ， 没 有 办 法 确定 某 个 对 象 是 否 是 某 个 类 的 实例 。 因 此 COM 
程序 是 高 度 可 扩展 的 。 


请 注意 ， 对 象 的 可 扩展 性 实际 上 完全 独立 于 继承 ! (我 们 的 语言 甚至 还 没有 类 。) 
它 来 自 对 接口 的 使 用 。 


3.3.4 屠 Java 呢 ?” 


Java 不 是 一 种 纯粹 的 面向 对 象 的 语言 ， 并 不 是 因为 它 有 原始 类 型 〈primitive type ， 
也 有 称 作 内 置 类 型 、 基 础 类 型 或 者 基本 类 型 ) ， 而 是 因为 它 支持 的 许多 操作 违反 了 
我 们 上 面 描述 的 原则 。Java 内 置 支持 相等 == 、 instanceof 、 转 换 为 类 类 型 ， 
这 使 得 两 个 对 象 即 使 行为 一 致 ， 也 可 以 被 区 分 。 在 Java 中 ， 可 以 声明 一 个 方法 ， 根 
据 类 来 接受 对 象 ， 而 不 是 根据 它们 的 接口 (在 Java 中 ， 类 名 也 是 类 型 ) 。 当 然 还 有 
就 是 ，Java 允 许 对 象 访问 其 他 对 象 的 内 部 (公有 字段 当然 可 以 ， 但 即使 私有 字段 同 
一 类 的 对 象 也 可 以 访问 上 ) 。 


这 意味 着 Java 也 支持 ADT 风 格 的 编程 。 这 没有 什么 不 对 的 ! 但 重要 的 是 了 解 这 所 涉 
及 的 设计 上 的 取舍， 然后 做 出 明智 的 选择 。 例 如 ， 在 JDK 中 ， 某 些 类 在 表面 上 笨重 
OO 原则 (允许 可 扩展 性 ) ， 但 其 实现 使 用 ADT 技 术 (不 可 扩展 ， 但 更 高 效 ) 。 如 
果 你 有 兴趣 ， 参 见 List 接口 和 LinkedList 实现 。 


在 Java 中 ，“ 纯 OO” 编 程 基 本 上 就 是 不 使 用 类 名 称 作 为 类 型 ( 即 只 在 new 之 后 使 用 
类 名 ) ， 并 且 从 不 使 用 内 置 的 相等 ( == ) 。 


3.4 可 扩展 性 问题 


面向 对 象 程序 设计 通常 被 认为 是 软件 可 扩展 性 方面 的 灵丹妙药 。 但 是 ，“ 可 扩展 " 究 
竞 意 味 着 什么 呢 ? 
可 扩展 性 问题 说 的 是 如 何 定义 数据 类 型 (结构 十 操作 ) ， 使 之 能 够 支持 两 种 形式 的 
扩展 : 添加 新 的 表示 变 体 ， 或 添加 新 的 操作 。 
这 里 ，ADT 的 意思 遵从 Cook 的 用 法 。 然 而 我 们 需要 澄清 ， 这 里 对 扩展 性 问题 的 
讨论 实际 上 将 对 象 与 变 体 类 型 (variant type) ( 即 代数 数据 类 型 (algebraic data 
types)) 进行 对 比 。 我 们 关心 的 是 可 扩展 的 实现 。 这 里 不 关心 界面 的 抽象 。 


事实 表明 ，ADT 和 对 象 分 别 都 能 很 好 地 支持 可 扩展 性 的 一 个 维度 ， 但 是 在 另 一 维度 
就 不 行 了 。 让 我 们 用 一 个 众所周知 的 例子 来 研究 此 问题 : 简单 表达 式 的 解释 器 。 


3.4.1 ADT 
先 来 考虑 ADT 的 做 法 。 表 达 式 的 数据 类 型 有 三 种 变 体 : 


(define-type Expr 
[num (n number?)] 
[bool (b boolean?)] 
[add (1 Expr?) (r Expr?)]) 


接 下 来 定义 解释 器 ， 这 是 一 个 函数 ， 用 type-case 处 理 抽象 语法 树 : 


(define (interp expr) 
(type-case Expr expr 
[num (Cn) n] 
[bool (b) b] 
[add (1 r) (+ (interp 1) (interp r))])) 


这 是 一 道 很 好 的 PLAI 练 习题 。 举 个 例子 : 


> (define prog (add (num 1) 

(add (num 2) (num 3)))) 
> (interp prog) 
6 


扩展 : 新 的 操作 


先 来 考虑 给 表达 式 添加 一 个 新 操作 。 除 了 对 表达 式 进行 解释 ， 我 们 还 想 做 类 型 检 
查 ， 也 就 是 确定 它 将 算得 的 值 的 类 型 (在 这 里 ， 是 number 或 boolean ) 。 这 很 
简单 ， 但 是 能 检测 到 解释 过 程 中 出 现 的 失败 的 情况 ， 比 如 对 两 个 不 是 数字 的 东西 进 
行 相 加 操作 : 


(define (typeof expr ) 
(type-case Expr expr 
[num (Cn) "number] 
[bool (b) 'boolean| 
[add (1 r) (if (and (equal? 'number (typeof 1)) 
(equal? 'number (typeof r))) 
'number 
(error "类 型 错误 : 并 非 数 "))])) 


求 一 下 之 前 那个 程序 的 类 型 : 


> (typeof prog) 
"number 


我 们 的 类 型 检查 器 会 拒绝 不 合理 的 程序 : 


> (typeof (add (num 1) (bool #f))) 
类 型 错误 : 并 非 数 


反思 一 下 这 个 扩展 案例 ， 我 们 看 到 一 切 都 很 顺利 。 想 要 新 的 操作 ， 我 们 只 需要 定义 
新 的 函数 。 这 种 扩展 是 模块 化 的 ， 因 为 只 需要 在 一 个 地 方 新 加 定义 。 


扩展 : 新 的 数据 


接 下 来 考虑 另 一 个 维度 的 可 扩展 性 : 添加 新 的 数据 变 体 。 假 设 我 们 扩展 这 里 的 简单 
语言 ， 增 加 新 的 表达 式 : ifc 。 扩 展 后 数据 类 型 的 定义 是 : 


(define-type Expr 
[num (n number?)] 
[bool (b boolean?)] 
[add (1 Expr?) (Cr Expr?)] 
[ifc (c Expr?) (t Expr?) (f Expr?)]) 


修改 Expr 的 定义 加 上 这 个 新 变 体 破坏 了 所 有 现 有 的 函数 定 
义 ! interp 和 typeof 都 不 再 成 立 ， 因 为 它们 用 type-case 对 表达 式 “ 按 类 型 
处 理 "， 但 是 并 没有 处 理 ifc 的 情况 。 我 们 需要 修改 它们 ， 加 上 对 ifc 的 处 理 : 


(define (interp expr ) 
(type-case Expr expr 
[num (Cn) n] 
[bool (b) b] 
[add (1 r) (+ (interp 1) (interp r))] 


Eficm(c er) 
(if (interp c) 
(interp t) 


(interp f))])) 


(define (typeof expr) 
(type-case Expr expr 
[num (Cn) "number] 
[bool (b) 'boolean| 
[add (1 r) (if (and (equal? 'number (typeof 1)) 
(equal? 'number (typeof r))) 
'number 
(error "类 型 错误 : 并 非 数 " ) )] 
fecal(c tf) 
(if (equal? 'boolean (typeof c)) 
(let ((type-t (typeof t)) 
(type-f (typeof f))) 
(if (equal? type-t type-f) 
type-t 
(error "类 型 错误 : 两 个 分 支 的 类 型 不 同 ") ) ) 
(error "类 型 错误 : 并 非 布尔 值 " ) )] ) ) 


程序 是 正确 的 : 


> (define prog (ifc (bool false) 
(add (num 1) 
(add (num 2) (num 3))) 
(num 5))) 
> (interp prog) 
5 


这 种 情况 下 的 可 扩展 性 就 不 怎么 样 了 。 我 们 必须 修改 数据 类 型 的 定义 ， 然 后 修改 所 
有 的 函数 。 


总 而 言 之 ， 使 用 ADT， 添 加 新 的 操作 〈 如 typeof ) 是 模块 化 的 所 以 很 容易 ， 但 添 
加 新 的 数据 类 型 (例如 ifc ) 则 不 是 模块 化 的 所 以 非常 麻烦 。 

3.4.2 OOP 

对 象 在 这 些 场景 下 表现 如 何 ? 

我 们 从 面向 对 象 版 本 的 解释 器 开始 : 


(define (bool b) 
(OBJECT () ([method interp () b]))) 


(define (num n) 
(OBJECT () ([method interp () n]))) 


(define (add 1 r) 
(OBJECT () ([method interp () (+ (-> 1 interp) 
(-> r interp))]))) 


请 注意 ， 遵 循 面向 对 象 的 设计 原则 ， ee 
不 存在 某 个 中 央 解 释 器 能 处 理 所 有 的 表达 式 。 解 释 程 序 是 通过 给 该 程序 发 
送 interp 消息 来 完成 : 


> (define prog (add (num 1) 
(add (num 2) (num 3) ))) 
> (-> prog interp) 


扩展 : 新 的 数据 


要 添加 新 的 数据 ， 比 如 条 件 对 象 c， 可 以 简单 地 定义 新 的 对 象 工厂 ， 其 中 包含 该 新 
对 象 处 理 interp 消 息 的 定义 : 


(define (ifc ct 了 ) 
(OBJECT () ([method interp () 
(if (-> c interp) 
(-> t interp) 
(-> f interp))]))) 


现在 可 以 解释 包含 条 件 的 程序 了 


> (-> (ifc (bool #f) 
(num 1) 
(add (num 1) (num 3))) interp) 


这 表明 ， 与 ADT 相 反 ， 使 用 OOP 添 加 新 类 型 的 数据 是 直接 的 、 模 块 化 的 : 只 需 创 建 
新 对 象 即 可 。 对 比 ADT， 这 是 明显 的 优势 。 


扩展 : 新 的 操作 


但 在 得 出 结论 ， 认 为 OOP 是 软件 可 扩展 性 的 灵丹妙药 之 前 ， 我 们 必须 考虑 另 一 种 扩 
展 场景 : 添加 操作 。 假 设 我 们 和 以 前 一 样 ， 需 要 检查 程序 的 类 型 。 这 意味 着 表达 式 
对 象 现 在 还 需要 理解 “typeof" 消 息 。 要 做 到 这 一 点 ， 我 们 就 必须 修改 所 有 的 对 象 定 
义 : 


(define (bool b) 
(OBJECT () ([method interp () b] 
[method typeof () 'boolean|))) 


(define (num n) 
(OBJECT () ([method interp () n] 
[method typeof () 'number]))) 


(define (add 1 r) 
(OBJECT () ([method interp () (+ (-> 1 interp) 
(-> r interp))] 
[method typeof () 
(if (and (equal? 'number (-> 1 typeof)) 
(equal? 'number (-> r typeof))) 
'number 
(error "类 型 错误 : 并 非 数 " ) )] ) ) ) 


(define (ifc c t f) 
(OBJECT () ([method interp () 
(if (-> c interp) 
(-> t interp) 
(-> f interp))] 
[method typeof () 
(if (equal? 'boolean (-> c typeof)) 
(let ((type-t (-> t typeof)) 
(type-f (-> f typeof))) 
(if (equal? type-t type-f) 
type-t 
(error "类 型 错误 : 两 个 分 支 的 类 型 不 同 " 
) ) ) 
(error "类 型 错误 : 并 非 布 尔 值 " ) )] ) )) 


程序 是 正确 的 : 


> (-> (ifc (bool #f) (num 1) (num 3)) typeof ) 
number 

> (-> (ifc (num 1) (bool #f) (num 3)) typeof ) 
类 型 错误 : 并 非 布尔 值 


这 个 可 扩展 性 场景 下 ， 我 们 被 迫 修 改 所 有 的 代码 才能 添加 新 方法 。 


总 而 言 之 ， 对 对 象 来 说 ， 添 加 新 的 数据 类 型 (例如 ifc) 模块 化 所 以 容易 ， 但 添加 新 
的 操作 (例如 typeof) 不 模块 化 所 以 麻烦 。 


请 注意 ， 这 就 是 ADT 的 对 偶 情 况 ! 


3.5 不 同形 式 的 数据 抽象 


Cook 的 论文 更 深入 地 讨论 了 此 类 数据 抽象 之 间 的 比较 ， 不 可 不 看 ! 
ADT 和 对 象 是 不 同形 式 的 数据 抽象 ， 各 有 优 劣 。 


ADT 的 表示 类 型 是 私有 的 ， 无 法 自 改 或 扩展 。 这 对 推理 (分析 ) 和 优化 来 说 是 好 

的 。 但 它 (同时 ) 只 允许 一 种 表示 。 

对 象 拥 有 行为 接口 ， 因 此 可 以 随时 定义 新 的 实现 。 这 对 灵活 性 和 可 扩展 性 来 说 是 好 
的 。 但 这 使 得 分 析 代 码 变 得 困难 ， 并 且 使 某 些 优化 成 为 不 可 能 。 

这 两 种 抽 旬 形式 也 支持 不 同形 式 的 模块 化 扩展 。 在 ADT 上 可 以 模块 化 地 添加 新 操 


作 ， 但 是 支持 新 的 数据 变 体 就 很 脐 烦 。 面 向 对 象 的 系统 可 以 模块 化 地 添加 新 的 表示 
法 ， 但 添加 新 的 操作 意味 着 大 量 的 修改 。 

有 一 些 方法 可 以 绕 开 此 折 嘉 。 比 如 说 ， 在 对 象 的 接口 中 可 以 公开 某 些 实现 细节 。 这 
会 牺牲 一 些 可 扩展 性 ， 但 恢复 某 些 优化 的 可 能 性 。 所 以 ， 这 里 根本 的 问题 是 设计 上 
的 问题 : 我 们 究 竞 需要 什么 ? 


现在 你 可 以 明白 ， 为 什么 许多 语言 (同时 ) 支持 这 两 种 数据 抽象 。 


4 转发 和 委托 


如 果 一 个 对 象 不 知道 如 何 处 理 某 条 消息 ， 总 是 可 以 通过 发 送 消 息 的 方式 将 其 转发 给 
另 一 个 对 象 。 在 我 们 的 简单 对 象 系统 中 ， 可 以 这 么 做 : 


(define seller 
(OBJECT () 
([method price (prod) 
(* (case prod 
((1) (-> self pricel1)) 
((2) (-> self price2))) 
(-> self unit))] 
[method price1 () 100] 
[method price2 () 200] 
[method unit () 1]))) 


(define broker 
(OBJECT 
([field provider seller|]) 
([method price (prod) (-> provider price prod)]))) 


> (-> broker price 2) 
200 


对 象 broker (中 间 商 ) 不 知道 如 何 计 算 产 品 ( prod ，product) 的 价格 (price)， 但 它 
2 称 自己 能 提供 价格 信息 ， 而 其 做 法 就 是 实现 一 个 方法 处 理 price 消息 ， 然 
是 简单 地 将 消息 0 seller (卖方 )， 由 seller 实现 所 需 的 行为 。 请 注 
broker 在 其 provider (供应 商 ) 字 段 中 保有 对 seller 的 引用 。 这 是 典型 的 对 

象 组 合 的 例子 ， 通 过 消息 转发 实现 。 

现在 我 们 可 以 看 到 这 种 方法 的 问题 了 : 消息 的 转发 必须 显 式 给 出 ， 对 于 每 种 我 们 预 
计 可 能 发 送 给 broker 的 消息 ， 都 必须 定义 一 个 负责 转发 到 seller 的 方法 。 例 
如 : 


> (-> broker unit ) 
message not understood: unit 


4.1 消息 转发 


我 们 可 以 做 得 更 好 ， 让 每 个 对 象 都 有 一 个 特殊 的 伙伴? 对象， 任何 不 理解 的 消息 都 
自动 转发 给 它 。 可 以 定义 新 的 语法 抽象 0BJECT-FWD 用 于 构造 这 样 的 对 象 : 


(defmac (OBJECT-FWD target 

([field fname init] ...) 

([method mname args body] ...)) 
#:keywords field method 
#:captures self 
(letrec ([self 

(let ([fname init] ...) 
(let ([methods (list (cons 'mname (入 args body)) 


')]) 
(入 (msg . vals) 
(let ([found (assoc msg methods)]) 
(if found 
(apply (cdr found) vals) 
(apply target msg vals))))))]) 
self)) 


请 注意 这 里 语法 的 扩展 ， 指 定 了 target 对 象 ; 只 要 某 条 消息 在 对 象 的 方法 中 找 不 
到 ， 调 度 过 程 就 会 使 用 target 对 象 。 当 然 ， 如 果 所 有 对 象 都 将 未 知 消息 转发 给 其 
他 对 象 ， 那 么 传递 链 中 必须 有 个 最 后 的 对 象 ， 该 对 象 在 收 到 消息 时 可 以 简单 报错 : 


(define root 
(入 (msg . args) 
(error "not understood" msg))) 


于 是 broker 可 以 这 样 定 义 : 


(define broker 
(OBJECT-FWD seller () ())) 


这 就 是 说 ， broker 是 个 空 对 象 (不 含 字 段 ， 不 含 方法 ) ， 只 是 将 所 有 发 送 给 它 的 
消息 转发 给 seller 


> (-> broker price 2) 
200 

> (-> broker unit ) 

1 


这 种 对 疹 通 常 被 称 为 代理 (proxy) 。 


4.2 委托 


假设 我 们 想 用 broker 来 改善 seller 的 行为 ; 比方 说 ， 我 们 希望 通过 改变 价格 
计算 中 使 用 的 单位 ， 来 使 每 个 产品 的 价格 加 倍 。 这 很 简单 : 我 们 只 需要 
在 broker 中 定义 方法 unit (单位 ): 


(define broker 
(OBJECT-FWD seller () 
([method unit () 2]))) 


有 了 这 个 定义 ， 我 们 应 该 确保 向 broker 询问 某 个 产品 的 价格 是 向 seller 询问 
同样 产品 价格 的 两 倍 : 


> (-> broker price 1) 
100 


咽 .....， 这 样 不 行 ! 看 来 ， 一 旦 我 们 把 price 消息 转发 给 seller ， 控 制 权 将 不 再 
能 流 回 broker ; 这 里 也 即 ， seller 发 给 self 的 unit 消息 不 会 
被 broker 收 到 。 


让 我 们 考虑 一 下 这 是 为 什么 。 在 seller 中 self 绑 定 到 哪个 对 象 ?9_ seller | 
请 记 住 ， 我 们 之 前 说 过 (参见 寻找 Self) ， 在 我 们 的 方法 中 ， self 是 静态 绑 定 
的 : 当 对 象 被 创建 时 ， self 指向 正 被 定义 的 对 象 / 闭 包 ， 并 且 将 始终 绑 定 该 值 。 
这 是 因为 letrec 和 1let 一 样 ， 遵 从 词法 作用 域 。 


我 们 正在 寻找 的 则 是 另 一 种 语义 ， 称 为 委托 (delegation ) 。 委 托 要 求 对 象 中 

的 self 动态 绑 定 : 它 应 该 始终 指向 最 初 接收 消息 的 对 象 。 在 我 们 的 例子 中 ， 这 
将 确保 当 seller 向 self 发 送 unit 消息 时 ， self 指向 broker ， 这 

样 broker 中 新 定义 的 unit 将 会 生效 。 在 这 种 情况 下 ， 我 们 

说 seller 是 broker 的 父 对 象 (parent) ， broker 委托 父 对 象 处 理 消息 。 
怎样 绑 定 标识 符 ， 能 使 其 指向 使 用 位 置 的 值 ， 而 不 是 定义 位 置 ?在 语言 不 提供 动态 
作用 域 绑 定 指令 的 情况 下 ， 唯 一 可 以 实现 这 一 点 的 方法 是 将 该 值 作 为 参数 传递 。 所 
以 ， 必 须 给 方法 增加 参数 ， 新 参数 指向 实际 的 接收 方 (receiver)。 因 此 ， 不 再 从 静态 
作用 域 中 捕获 self 标识 符 ， 我 们 添加 self 参数 。 


具体 说 来 ， 这 意味 着 seller 中 这 个 方法 : 
(入 (prod) .... (-> Self unit) ....) 
必须 改 为 : 
有 没有 想 过 为 什么 Python 中 的 方法 必须 显 式 地 接受 self 作 为 第 一 个 参数 ? 


(入 (self) 
(入 (prod)....(-> Self unit)....)) 


这 个 新 参数 有 效 地 允许 我 们 在 查找 得 到 方法 后 传递 当前 的 接收 方 。 


现在 让 我 们 定义 新 的 语法 形式 0BJECT-DEL ， 来 支持 对 象 之 间 的 委托 
(delegation ) 语义 : 


(defmac (OBJECT-DEL parent 
([field fname init] ...) 
([method mname args body] ...)) 
#:keywords field method 
#:captures self 
(let ([fname init] ...) 
(let ([methods 
(list (cons 'mname 
(A (self) (入 args body))) ...)]) 
(和 A (current) 
(入 (msg . vals) 
(let ([found (assoc msg methods)]) 
(if found 
(apply ((cdr found) current) vals) 
(apply (parent current) msg vals)))))))) 


有 几 地 方 改动 了 : 首先 ， target 更 名 为 parent ， 以 明确 我 们 定义 的 是 委托 语 
义 。 其 次 ， 如 上 所 述 ， 所 有 的 方法 现在 都 是 带 上 了 self 参数 。 请 注意 ， 我 们 完全 
摆脱 了 letrec ! 这 是 因为 letrec 本 来 的 用 途 就 是 允许 对 象 引 用 self ， 同 时 
遵循 词法 作用 域 。 我 们 已 经 看 到 ， 对 于 委托 来 说 ， 我 们 并 不 想 要 词法 作用 域 。 


这 意味 着 ， 当 我 们 在 方法 字典 中 找到 某 个 方法 时 ， 必 须 首 先 将 实际 的 接收 方 作为 参 
数 传 给 它 。 我 们 如 何 获得 接收 方 ? 唯一 的 可 能 就 是 ， 给 对 象 也 加 上 参数 ， 新 参数 是 
调用 其 方法 时 必须 使 用 的 当前 接收 方 。 也 就 是 说 ， 对 象 构造 器 返回 的 值 不 再 

是 入 (msg .vals) ....”? 而 是 * 入 (rcvr) .... ”o “当前 接收 方 " 是 我 们 的 对 
象 的 参数 。 同 样 ， 如 果 某 个 消息 不 能 被 给 定 的 对 象 所 理解 ， 那 么 它 必 须 把 当前 接收 
者 一 起 发 送 给 它 的 父 对 象 。 


这 样 我 们 还 有 最 后 一 个 问题 要 解决 : 如 何 向 对 象 发 送 消息 ? 回忆 一 下 ， -> 的 定义 


加 员 


(defmac (-> om arg ...) 
(oO 'm arg ...)) 


但 是 现在 我 们 不 能 简单 地 把 o 当做 函数 来 调用 ， 传 给 它 一 个 符号 (消息) 和 可 变 
数量 的 参数 。 现 在 ， 对 象 是 形式 为 (入 (rcvr) (入 (msg . args) ....)) 的 函 

数 。 所 以 在 传递 消息 和 参数 之 前 ， 我 们 必须 指定 哪个 对 象 是 当前 的 接收 方 。 好 吧 ， 
这 很 容易 ， 因 为 在 我 们 发 送 消息 的 时 候 ， 当 前 的 接收 方 应 该 是 ...... 接受 消息 的 对 

象 ! 


为 什么 这 里 需要 let 绑 定 ? 
(defmac (-> omarg ...) 


(let ([obj o]) 
((obj obj) 'm arg ...))) 


来 看 委托 一 “也 就 是 self 的 延迟 绑 定 一 ”的 效果 : 


(define seller 
(OBJECT-DEL root () 
([method price (prod) 
(* (case prod 
[(1) (-> self pricel1)] 
[(2) (-> self price2)]) 
(-> self unit))] 
[method price1 () 100] 
[method price2 () 200] 
[method unit () 1]))) 
(define broker 
(OBJECT-DEL seller () 
([method unit () 2]))) 


> (-> seller price 1) 
100 
> (-> broker price 1) 
200 


4.3 用 原型 编程 


具有 类 似 我 们 在 本 章 中 介绍 的 委托 机 制 的 基于 对 象 的 语言 被 称 为 基于 原型 的 语言 
(prototype) ， 例 如 Self，JavaScript 和 AmbientTalk 等 等 。 这 些 语 言 擅 长 什么 ? 如 
何 使 用 原型 编程 ? 


4.3.1 单 例 和 特殊 对 象 


由 于 对 象 可 以 无 中 生 有 地 创建 ( 即 ， 用 类 似 于 0BJECT-DEL 的 对 象 字面 表达 式 创 
建 ) ， 所 以 自然 地 可 以 创建 只 包含 一 个 实例 的 类 型 的 对 象 实例 。 与 基于 类 的 语言 需 
要 一 个 特定 的 设计 模式 ( 称 为 单 例 (Singleton)) 相反 ， 基 于 对 象 的 语言 非常 适合 这 
种 情况 ， 也 适合 创建 “特殊 "对 象 (下 面 会 详细 介绍 ) 。 


我 们 先 来 考虑 布尔 值 的 面向 对 象 表示 和 简单 的 if-then-else 控制 结构 。 有 多 少 
种 布尔 值 ? 只 有 两 个 : 申 和 假 。 所 以 我 们 可 以 创建 两 个 独立 的 对 

象 ，true 和 false 来 表示 它们 。 在 像 Self 和 Smalltalk 这 样 的 纯 面 向 对 象 的 语言 
中 ， 像 if-then-else ， while 等 这 样 的 控制 结构 在 语言 中 不 是 基本 指令 。 相 
反 ， 它 们 被 定义 为 某 些 对 象 的 方法 。 我 们 来 考虑 if-then-else 的 情况 。 我 们 可 
以 给 一 个 布尔 值 传 两 个 thunk (译注 ， 无 参数 的 lambda， 

即 (lambda () ...) ) ， 一 个 真 thunk 和 一 个 假 thunk ; 如 果 布 尔 值 是 true， 它 会 
调用 真 thunk ; 如 果 它 是 false， 它 会 调用 假 thunk 。 


(define true 
(OBJECT-DEL root () 
([method ifTrueFalse (t f) (t)]))) 


(define false 
(OBJECT-DEL root () 
([method ifTrueFalse (t f) (f)]))) 


怎么 能 使 用 这 些 对 象 ? 举 个 例子 : 


(define light 
(OBJECT-DEL root 
([field on falsel]) 
([method turn-on () (set! on true)] 
[method turn-off () (set! on false)] 
[method on? () on]))) 


> (-> (-> light on?) ifTrueFalse (入 () " 灯 开 了 ") 
CX A 

Up nn 

> (-> light turn-on) 

> (-> (-> light on?) ifTrueFalse (入 () " 灯 开 了 ") 
(CO 

nT T1 


对 象 true 和 false 是 布尔 值 的 唯 二 表示 。 任 何 依 赖 菜 个 表达 式 为 丨 或 假 的 条 件 
机 制 都 可 以 类 似 地 定义 为 这 两 个 对 象 的 方法 。 这 就 是 动态 分 发 ! 


Smalltalk 中 的 布尔 值 和 控制 结构 就 是 这 么 定义 的 ， 不 过 ， 由 于 Smalltalk 是 基于 类 的 
语言 ， 它 们 的 定义 更 加 复杂 些 。 用 你 最 喜欢 的 基于 类 的 语言 来 试 试看 。 


我 们 再 来 看 一 个 基于 对 象 语言 的 实用 例子 : 特殊 (exceptional) 对 象 。 先 来 回顾 一 
下 普通 点 对 象 的 定义 ， 一 般 是 调用 工厂 函数 make-point 创建 的 : 


(define (make-point x-init y-init) 
(OBJECT-DEL root 
([field x x-init] 
[field y y-init]) 
([method x? () x] 
[method y? () y]1))) 


假设 我 们 要 引入 一 个 特殊 的 点 对 象 ， 它 的 特殊 性 在 于 坐标 是 随机 的 ， 每 次 访问 都 会 
改变 。 我 们 可 以 简单 地 定义 random-point 为 一 个 独立 的 对 象 ， 其 x? 和 y? 方 
法 执行 计算 而 不 是 访问 存储 的 状态 : 


(define random-point 

(OBJECT-DEL root () 
([method x? () (* 10 (random))] 
[method y? () (-> self x?)]))) 


请 注意 ， random-point 没有 声明 任何 字段 。 当 然 ， 因 为 在 DOP 中 我 们 依赖 的 是 
对 象 的 接口 ， 两 种 表示 可 以 共存 。 


4.3.2 通过 委托 共 


上 面 讨论 的 例子 突出 了 基于 对 象 的 语言 的 优点 。 现 在 让 我 们 看 看 实际 使 用 中 的 委 
托 。 首 先 ， 委 托 可 以 用 来 分 解 对 象 之 间 的 共享 行为 。 考 虑 这 种 情况 : 


(define (make-point x-init y-init) 
(OBJECT-DEL root 
([field x x-init] 
[field y y-init]) 
([method x? () x] 
[method y? () yj 
[method above (p2) 
(if (> (-> p2 y?) (-> self y?)) 
p2 
self)] 
[method add (p2) 
(make-point (+ (-> self x?) 
(-> p2 x?)) 
(+ (-> self y?) 
(-> p2 y?)))]))) 


创建 的 所 有 点 对 象 都 具有 相同 的 方法 ， 因 此 这 些 行 为 可 以 移 至 公共 的 父 对 象 (通常 
称 为 原型 ) 中 ， 以 实现 共享 。 所 有 的 行为 都 应 该 移 到 原型 中 吗 ? 如 果 我 们 想 要 允许 
点 的 不 同 表示 ， 比 如 前 面 的 随机 点 〈 它 根本 不 含 任 何 字 段 1 ) ， 就 不 该 这 么 做 。 


因此 ， 我 们 可 以 定义 point 原型 ， 它 提取 了 above 和 add 方法 ， 它 们 的 实现 对 
所 有 点 都 是 一 样 的 : 


(define point 
(OBJECT-DEL root () 
([method above (p2) 
(if (> (-> p2 y?) (-> self y?)) 
p2 


self)] 
[method add (p2) 
(make-point (+ (-> self x?) 
(-> p2 x?)) 
(+ (-> self y?) 
(-> p2 y?)))]))) 


如 果 使 用 的 语言 支持 抽象 方法 的 话 ， point 中 这 些 选择 器 (accessor) 方 法 可 以 
定义 为 抽象 (abstract) 的 。Smalltalk 就 可 以 这 么 做 ， 这 种 方法 被 调用 的 话 就 会 抛 
出 异常 。 


请 注意 ， 作 为 一 个 独立 的 对 象 ， point 没有 意义 ， 因 为 它 给 自己 发 送 自己 也 不 理 
解 的 消息 。 但 它 可 以 作为 原型 ， 其 他 点 可 以 扩展 之 。 比 如 用 make-point 创建 的 
普通 点 2 包含 字段 X 和 y 


(define (make-point x-init y-init) 
(OBJECT-DEL point 
([field x x-init] 
[field y y-init]) 
([method x? () x] 
[method y? () y]))) 


也 可 以 是 特殊 的 点 : 


(define random-point 
(OBJECT-DEL point () 
([method x? () (* 10 (random))] 
[method y? () (-> self x?)]))) 


正如 我 们 所 说 的 ， 这 些 不 同类 型 的 点 相互 合作 ， 它 们 都 理解 point 原型 中 定义 的 
消息 : 


> (define pi (make-point 1 2)) 

> (define p2 (-> random-point add p1)) 
> (-> (-> p2 above p1) x?) 
8.90016724570533 


同样 ， 我 们 可 以 用 委托 来 共享 对 象 之 间 的 状态 。 人 例如， 考虑 一 组 共享 相同 X 坐 标的 
点 : 


(define 1D-point 
(OBJECT-DEL point 
([field x 5]) 
([method x? () x] 
[method x! (nx) (set! x nx)]))) 


(define (make-point-shared y-init) 
(OBJECT-DEL 1D-point 
([field y y-init]) 
([method y? () y] 
[method y! (ny) (set! y ny)]))) 


所 有 由 make-point-shared 创建 的 对 象 共享 同一 个 父 对 象 1D-point ， 由 它 决 
定 x 坐标 。 如 果 改 变 1D-point ， 自 然 会 反映 到 所 有 子 对 象 上 : 


(define pi (make-point-shared 2)) 
(define p2 (make-point-shared 4)) 
(-> pi x?) 


> 
> 

> 

5 

> (-> p2 x?) 
5 

> (-> 1D-point x! 10) 
> (-> pi x?) 

1 
> (-> p2 x?) 


4.4 Self 的 延迟 绑 定 与 模块 化 


参见 《Why of Y》。 


在 0BJECT-DEL 语法 抽象 的 定义 中 ， 注 意 我 们 在 消息 发 送 的 定义 中 使 用 了 自我 调 
用 的 模式 (obj obj) 。 我 们 之 前 也 用 到 过 自我 调用 模式 ， 是 在 不 赋值 的 情况 下 实 
现 递归 绑 定 (译注 ， 参 见 PLAI) 。 


想 想 C++ 和 Java 等 主流 语言 是 怎么 做 的 : 它们 怎么 解决 可 扩展 性 (extensibility) 
和 脆弱 性 (fragility) 之 间 的 折衷 ? 


OOP 的 这 个 特性 也 被 称 为 “开放 式 递 归 ”(open recursion) : 任何 子 对 象 都 可 以 重 
新 定义 其 父 对 象 的 〈 父 对 象 的 ) 方法 。 当 然 ， 这 种 机 制 有 利于 可 扩展 性 
(extensibility) ， 因 为 我 们 可 以 扩展 对 象 的 任何 方面 ， 而 不 必 事 先 预 见 到 需要 进行 
这 些 扩 展 。 另 一 方面 ， 开 放 式 递归 使 得 软件 变 得 更 加 脆弱 (fragile) ， 因 为 以 不 可 
预见 、 不 正确 的 方式 扩展 对 象 太 过 容易 。 想 象 一 下 可 能 出 问题 的 情况 ， 然 后 考虑 可 
行 的 蔡 代 设计 。 为 了 进一步 阐明 脆弱 性 ， 可 以 考虑 对 象 的 黑 盒 组 合 情 况 : 有 两 个 对 
象 ， 各 自 独 立 开 发 ， 然 后 把 它们 放 入 委托 关系 中 。 可 能 会 出 什么 问题 ? 


4.5 词法 作用 域 和 委托 


正如 之 前 所 讨论 的 ， 在 我 们 的 系统 中 可 以 定义 瞬 套 的 对 象 。 词 法 散 套 与 委托 之 间 的 
关系 变 有 意思 的 ， 值 得 讨论 一 下 。 考 虑 下 面 的 例子 : 


(define parent 
(OBJECT-DEL root () 
([method foo () 1]))) 


(define outer 
(OBJECT-DEL root 

([field foo (入 () 2)]) 

([method foo () 3] 

[method get () 
(OBJECT-DEL parent () 
([method get-foo1i () (foo)] 
[method get-foo2 () (-> self foo)]))]))) 


(define inner (-> outer get)) 
(-> inner get-foo1) 


(-> inner get-foo2) 


PVDYV 


可 以 看 到 ， 自 由 标识 各 村 在 词法 环境 中 查找 〈 见 get-foo1 ) ， 未 知 消息 在 委托 链 上 
进行 查找 《 兄 get-foo2 ) 。 这 点 需要 澄清 ， 因 为 Java 程 序 员 习惯 的 

是 this.foo() 等 同 于 foo() 。 在 许多 同时 支持 词法 襄 套 和 茶 种 形式 的 委托 (如 
继承 ) 的 语言 中 ， 情 况 并 非 如 此 。 


其 他 语言 对 此 有 不 同 的 处 理 。 参 见 Newspeak 和 AmbientTalk 。 


Java 是 怎么 处 理 的 ? 试 试 就 知道 了 ! 继承 链 屏 蔽 (shadow) 了 词法 链 : 使 

用 foo() 时 ， 如 果 能 在 超 类 中 找到 方法 ， 则 会 调用 该 方法 ; 只 有 在 找 不 到 方法 
时 ， 才 使 用 词法 环境 ( 即 outer 对 象 中 的 foo ) 。 因 此 ， 对 outer 对 象 的 引用 
是 非常 脆弱 的 。 这 就 是 为 什么 Java 支 持 额 外 的 语法 形式 Outer,this 来 引用 外 层 
对 象 。 当 然 ， 如 果 直 接 外 层 对 象 的 类 中 找 不 到 方法 ， 那 么 就 继续 在 它 的 超 类 中 查 
找 ， 而 不 是 往 词 法 链 上 。 


4.6 委托 模型 
我 们 在 这 里 实现 的 委托 模型 只 是 基于 原型 的 语言 的 设计 空间 中 的 一 个 点 。 请 自行 研 


完 Self，JavaScript 和 AmbientTalk 的 文档 以 了 解 其 设计 。 你 还 可 以 修改 我 们 的 对 象 
系统 ， 让 其 支持 不 同 的 模型 ， 比 如 说 JavaScript 模 型 。 


4.7 克隆 


在 我 们 的 语言 中 (在 JavaScript 中 也 是 一 样 ) ， 对 象 都 是 无 中 生 有 的 创建 的 : 要 么 
从 头 创 建 对 象 ， 要 么 我 们 有 个 函数 ， 它 的 作用 是 为 我 们 执行 对 象 的 创建 。 历 史上 ， 
基于 原型 的 语言 (如 Self) 提供 了 另 一 种 创建 对 象 的 方法 : 克隆 (clone) 现 有 对 象 。 


这 种 方法 类 似 于 我 们 经 常 对 文本 ( 包括 代码 ! ) 进行 的 复制 一 粘贴 一 修改 操作 : 从 
某 个 类 似 的 对 象 开始 ， 克 隆之 ， 然 后 修改 该 克隆 ( 比如 说 ， 添 加 方法 ， 更 改 字 


当 克 隆 对 象 和 委托 同时 存在 时 ， 就 会 出 现 克隆 操作 是 深 (deep) 还 是 浅 
(shallow) 的 问题 。 浅 克隆 返回 的 对 象 和 原始 对 象 共享 父 对 象 。 深 克隆 返回 的 对 象 
的 父 对 象 是 原始 对 象 的 父 对 象 的 克隆 ， 并 依 此 类 推 : 整个 委托 链 都 被 克隆 。 


这 里 我 们 不 在 详细 地 研究 克隆 。 然 而 ， 你 应 该 思考 一 下 ， 在 我 们 的 语言 中 支持 克隆 
难 钨 如何 。 由 于 对 象 实 际 上 (通过 宏 展 开 ) 被 编译 成 函数 ， 所 以 问题 归结 为 闭 包 的 
克隆 。 不 幸 的 是 ，Scheme 不 支持 此 操作 。 出 现 了 源 语 言 和 目标 语言 之 间 不 匹配 的 
情况 ( 想 想 PLAI 第 12 章 ) 。 甘 瓜 苦 还 ! 


5 类 
回头 讨论 工厂 函数 (参见 构造 对 象 ) 


(define (make-point init-x) 
(OBJECT 
([field x init-x]) 
([method x? () x] 
[method x! (new-x) (begin (set! x new-x) self)]))) 


(define pi (make-point 0)) 
(define p2 (make-point 1)) 


所 有 点 对 象 都 拥有 自己 的 方法 ， 尽 管 它 们 是 相同 的 。 至 少 它们 的 签名 和 主体 是 一 样 
的 ， 对 吧 ? 它们 完全 一 样 吗 ? 事实 并 非 如 此 。 在 这 个 版 本 的 对 象 系统 中 ， 唯 一 的 区 
别 是 ， 方 法 中 包含 对 象 自身 : 就 是 说 ， 在 pl 的 方法 中 ， self 指向 pl ， 而 

在 p2 的 方法 中 它 指向 p2 。 换 和 句 话说 ， 方 法 ， 也 就 是 函数 ， 因 所 捕捉 的 词法 环境 
而 不 同 。 


5.1 共享 方法 定义 


为 了 支持 不 同 的 self ， 就 重复 所 有 的 方法 定义 并 不 合理 。 将 共同 部 分 (方法 体 ) 
分 解 出 来 ， 将 变量 〈 绑 定 到 self 的 对 象 ) 参数 化 更 合理 。 


先 试 试 不 用 宏 来 实现 。 回 想 一 下 ， 不 使 用 宏 的 情况 下 ， 点 对 象 的 定义 如 下 : 


(define make-point 
(入 (init-x) 
(letrec ([self 
(let ([x init-x]) 
(let ([methods (list (cons 'x? (A () x)) 
(cons 'x! (入 (nx) 
(set! x nx) 


self)))]) 
(入 (msg . args) 
(apply (cdr (assoc msg methods)) args))))]) 
self))) 


如 果 将 (let ([methods...])) 从 (入 (init-x) ...) 中 提取 出 来 ， 我 们 就 可 以 
实现 想 要 的 方法 定义 的 共享 。 但 是 这 样 的 话 ， 字 段 变量 就 不 在 方法 体 的 作用 域 中 

了 。 具 体 地 说 ， 在 这 个 例子 中 ， 这 意味 着 x 在 两 个 方法 中 都 没有 绑 定 。 这 表明 ， 
除了 self 之 外 ， 方 法 还 需要 参数 化 于 状态 (字段 值 ) 之 上 。 不 过 ， 好 


在 self 可 以 “ 持 有 ”状态 ( 它 可 以 捕获 其 词法 环境 中 的 字段 绑 定 ) 。 只 要 找到 通 
过 self 能 够 提取 字段 值 (还 有 对 其 赋值 ) 的 方法 就 可 以 了 。 为 此 ， 我 们 的 对 象 将 
支持 两 个 特定 的 消息 -read 和 -write : 


(define make-point 
(let ([methods (list (cons 'x? (入 (self) 
(和 A () (self '-read)))) 
(cons 'x! (入 (self) 


(入 (nx) 
(self '-write nx) 
self))))]) 
(入 (init-x) 
(letrec ([self 
(let ([x init-x]) 
(入 (msg . args) 
(case msg 
[(-read) x] 
[(-write) (set! x (first args))] 
[else 
(apply ((cdr (assoc msg methods)) self) a 
rgs)])))]) 
sel1f)))) 


请 仔细 研究 这 里 的 方法 现在 是 如 何 参 数 化 于 self 的 ， 还 有 ， 要 存 取 字段 现在 需要 
向 self 发 送 特殊 消息 。 接 下 来 再 研究 对 象 本 身 的 定义 : 当 收 到 消息 时 ， 它 首先 检 
查 消 息 是 否 为 -read 或 -write ， 如 果 是 的 话 就 进行 存 取 操作 。 来 试 试 这 是 否 可 
行 : 


(define pi (make-point 1)) 
(define p2 (make-point 2)) 


> ((p1 'x! 10) 'x?) 
10 

> (p2 'x?) 

2 


5.2 访问 字段 


当然 ， 这 个 定义 不 怎么 通用 ， 因 为 它 只 适用 于 一 个 字段 x 。 我 们 需要 将 其 一 般 

化 : 字段 名 必须 作为 参数 传 给 -read 和 -write 消息 。 问 题 是 ， 如 何 用 字段 名 
(符号 ) 访问 对 象 的 词法 环境 中 的 同名 变量 。 一 个 简单 的 解决 方案 是 使 用 某 种 结构 
来 保存 字段 值 。 方 法 的 定义 就 是 这 样 处 理 的 ， 保 存 的 是 方法 名 称 和 方法 定义 之 间 的 
关联 。 不 过 ， 与 方法 表 不 同 ， 字 段 绑 定 是 【至 少 是 潜在 ) 可 变 的 。Racket 不 支持 对 
关联 表 进 行 赋值 ， 所 以 我 们 使 用 字典 (更 确切 地 说 ， 哈 希 表 ) ， 

用 dict-ref 和 dict-set! 访问 。 


(define make-point 
(let ([methods (list (cons 'x? (入 (self) 
(和 A () (self '-read 'x)))) 
(cons 'x! (入 (self) 


(入 (nx) 
(self '-write 'x nx) 
sel1f))))]) 


(入 (init-x) 
(letrec ([self 
(let ([fields (make-hash (list (cons 'x init-x)) 


)]) 
(入 (msg . args) 
(case msg 
[(-read) (dict-ref fields (first args))] 
[(-write) (dict-set! fields (first args) 
(second args)) 

] 

[else 

(apply ((cdr (assoc msg methods)) self) a 
rgs)])))]) 


self)))) 


> (let ((p1 (make-point 1)) 
(p2 (make-point 2))) 
(+ ((p1 'x! 10) 'x?) 


(p2 'x?))) 
12 


请 注意 make-point 现在 保存 了 方法 定义 的 列表 ， 还 有 ， 被 创建 的 对 象 捕 获 
了 fields (字段 ) 字 典 〈 该 字典 先 初始 化 ， 然 后 返回 给 对 象 ) 。 


5.3 类 


虽然 我 们 的 确实 现 了 方法 定义 的 共享 ， 但 是 这 个 解决 方案 并 不 理想 。 为 什么 ? 观察 
对 象 的 定义 (上 述 (入 (msg . args) .. ) 的 函数 体 ) 。 在 那里 实现 的 逻辑 在 所 
有 用 make-point 创 建 对 象 中 都 是 重复 的 : 每 个 对 象 都 有 它 自己 的 副本 ， 当 它 收 
到 -read 消息 时 ， 在 fields 字典 中 查找 ; -write 消息 时 ， 更 新 fields 字 
典 ; 任何 其 他 消息 ， 查 找 methods 表 ， 然 后 应 用 对 应 方法 。 


所 以 说 ， 所 有 这 些 逻 辑 在 对 象 之 间 都 可 以 共享 。 对 象 体 中 唯一 的 自由 变 

是 fields 和 self 。 换 印 话 说， 我们 可 以 把 对 象 定义 为 它 自己 外 加 它 的 字段 ， 
而 把 所 有 其 他 的 逮 辑 都 交 给 make-point 坟 数 。 这 样 的 话 ，make-point 的 功能 
不 再 是 单一 的 只 负责 创建 新 的 对 象 ， 还 负责 处 理 对 字段 的 访问 和 对 消息 的 处 理 。 也 
就 是 说 ， make-point 演变 成 所 谓 的 类 (class) 。 


我 们 如 何 表 示 类 ?目前 它 只 是 可 以 调用 的 函数 ( 它 会 创建 对 象 一 一 个 实例 ) ; 如 
果 需 要 该 函数 有 不 同 的 行为 ， 我 们 可 以 应 用 本 书 开始 时 看 到 的 对 象 模式 。 





在 某 些 语言 


间 一 学 | 


了 本 天 


中 ， 类 本 身 就 是 对 象 。 这 方面 的 范例 就 是 Smalltalk。 绝 对 值得 花 时 


(define Point 


(入 (msg . args) 
(case msg 
[(create) create instancel] 
[(read) read field] 
[(write) write field] 
[(invoke) invoke method] ) ) ) 


这 种 模式 明确 了 类 的 作用 : 它 产生 对 象 ， 调 用 方法 ， 读 取 和 写 入 其 实例 的 字段 。 


现在 ， 对 象 的 作用 是 什么 ?了 他 只 需要 有 标识 (identity) 功能 ， 知 道 自己 属于 哪个 


类 ， 并 记录 自己 的 字段 值 。 它 不 再 自 带 任何 行为 。 换 种 说 法 ， 对 象 可 以 定义 为 普通 
的 数据 结构 : 


(define-struct obj (class values ) ) 
接 下 来 看 看 现在 该 怎么 定义 Point 类 : 


(define Point 


(let ([methods ....]) 
(letrec 
([class 
(入 (msg . vals) 
(case msg 
[(create) (let ((values (make-hash '((x . 0)))) 
) 
(make-obj class values))] 
[(read) (dict-ref (obj-values (first vals)) 
(second vals))] 
[(write) (dict-set! (obj-values (first vals)) 
(second vals) 
(third vals))] 
[(invoke) 
(let ((found (assoc (second vals) methods))) 
(if found 
(apply ((cdr found) (first vals)) (cddr 
vals)) 


(error "message not understood")))]))]) 
class))) 


> (Point 'create) 
#<0bj> 


要 实例 化 Point 类 ， 只 需 向 其 发 送 create 消息 。 现 在 对 象 是 结构 体 了 ， 我 们 需 
要 一 种 方法 来 发 送 消息 ， 还 有 访问 其 字段 。 要 向 对 象 p 发 送 消 息 ， 先 要 检索 它 的 
类 ， 然 后 给 这 个 类 发 送 invoke 消息 : 


((obj-class p) "invoke p 'x?) 
访问 字段 也 是 类 似 。 


5.4 在 Scheme 中 同 入 类 


本 节 我 们 使 用 宏 在 Scheme 中 襄 入 类 。 


5.4.1 类 的 安 
我 们 来 定义 CLASS 语法 抽象 ， 它 负责 创建 类 : 


(defmac (CLASS ([field f init] ...) 
([method m params body] ...)) 
#:keywords field method 
#:captures self 
(let ([methods (list (cons 'm (和 AN (self) 
(A params body))) ...)]) 
(letrec 
([class 
(入 (msg . vals) 
(case msg 
[(create) 
(make-obj class 
(make-hash (list (cons 'f init) 
…)))] 
[(read ) 
(dict-ref (obj-values (first vals)) (second 
vals))] 
[(write) 
(dict-set! (obj-values (first vals)) (secon 
d vals) (third vals))] 
[(invoke) 
(if (assoc (second vals) methods) 
(apply ((cdr (assoc (second vals) metho 
ds)) (first vals)) (cddr vals)) 
(error "message not understood"))]))]) 
class))) 


5.4.2 辅助 语法 


我 们 需要 引入 新 的 语法 定义 ， 以 方便 地 调用 方法 ( -> ) ， 还 需要 引入 类 似 的 语 
法 ， 来 访问 当前 对 象 的 字段 ( ? 和 1! ) 。 


(defmac (-> om arg ...) 
(let ((obj o)) 
((obj-class obj) 'invoke obj 'm arg ...))) 


(defmac (? fd) #:captures self 
((obj-class self) 'read self 'fd)) 


(defmac (! fd v) #:captures self 
((obj-class self) 'write self 'fd v)) 


还 可 以 定义 辅助 函数 来 创建 新 的 实例 : 


(define (new c) 
(c 'create)) 


这 个 简单 的 函数 在 概念 上 非常 重要 : 它 有 助 于 隐藏 类 在 内 部 作为 函数 实现 的 事实 ， 
还 隐藏 了 用 于 请 求 类 创建 实例 的 符号 。 


5.4.3 例子 
来 看 类 的 例子 : 


(define Point 
(CLASS ([field x 0]) 
([method x? () (? x)] 
[method x! (new-x) (! x new-x)] 
[method move (n) (-> self x! (+ (-> self x?) n))]))) 


(define pi (new Point)) 
(define p2 (new Point)) 


> (-> pi move 10) 
> (-> pi x?) 

10 

> (-> p2 x?) 

0 


5.4.4 强 封装 


关于 字段 访问 ， 我们 做 了 个 重要 的 设计 决定 : 字段 访问 器 ? 和 ! 只 能 作用 
于 self ! 即 ， 在 我 们 的 语言 中 不 可 能 访问 另 一 个 对 象 的 字段 。 这 被 称 为 具有 强 封 
装 (Strong Encapsulation ) 对 象 的 语言 。Smalltalk 就 是 这 样 (访问 另 一 个 对 象 的 


字段 实际 上 是 发 送 消息 ， 因 此 可 以 由 接收 方 对 象 来 控制 ) 。Java 不 是 : 可 以 访问 任 
何 对 象 的 字段 (如 果 可 见 性 (visibility) 允 许 的话 ) 。 我 们 的 语法 根本 不 允许 访问 外 部 
字段 。 


这 样 设计 的 另 一 个 结果 是 ， 字 段 访问 只 能 出 现在 方法 体内 : 因为 接收 对 象 总 
是 self ， 所 以 self 儿 须 已 定义 。 比 如 说 ， 试 试 在 对 象 之 外 用 ? 读 取 字段 : 


2) 
self: undefined; 
cannot reference undefined identifier 


更 好 的 做 法 是 ， 上 述 程 序 会 产生 错误 ， 表 明 ? 未 定义 。 要 做 到 这 一 点 ， 我 们 简单 
地 将 ? 和 ? 定义 为 局 部 语法 形式 ， 只 在 方法 体 的 内 被 定义 ， 而 不 是 全 局 范围 内 有 
定义 。 只 要 将 这 些 字段 访问 形式 的 定义 从 全 局 移动 到 Local 作用 域 

内 ， local 放 在 方法 定义 内 : 


(defmac (CLASS ([field f init] ...) 
([method m params body] ...)) 
#:keywords field method 
#:captures self ? |! 
(let ([methods 
(local [(defmac (? fd) #:captures self 
((obj-class self) 'read Self 'fd)) 
(defmac (! fd v) #:captures self 
((obj-class self) 'write self 'fd v))] 
(list (cons 'm (和 A (self) 
(和 params body))) ...))]) 
(letrec 
([class (入 (msg . vals) ....)])))) 


在 方法 列表 定义 的 局 部 作用 域内 定义 语法 形式 ? 和 ! ， 确 保 了 它们 可 以 在 方法 体 
内 可 用 ， 但 在 其 他 地 方 不 可 用 。 


现在 ， 字 段 访 问 器 方法 之 外 没有 定义 : 


> (00 
?: undefined; 
cannot reference undefined identifier 


后 文 统一 使 用 这 种 局 部 的 方法 。 


5.5 初始 化 


我 们 已 经 看 到 ， 要 从 类 获取 对 象 ( 即 实例 化 对 象 ) 的 方法 是 向 类 发 送 create 消 
息 。 能 够 给 create 传递 参数 ， 以 指定 对 象 的 字段 的 初始 值 通常 是 有 用 的 。 目 前 
我 们 的 类 系统 仅 支 持 在 类 声明 时 指定 默认 字段 值 。 在 实例 化 时 没 法 传递 初始 字段 


值 。 


初始 化 方法 是 Smalltalk 编 程 中 的 习惯 叫 法 。 在 Java 中 ， 它 们 被 称 为 构造 函数 
(这 可 以 说 是 个 糟糕 的 名 字 ， 因 为 我 们 可 以 看 到 ， 它 们 并 不 负责 构建 对 象 ， 只 


是 在 实际 创建 对 象 之 后 才 对 其 进行 初始 化 ) 。 


有 几 种 方法 可 以 做 到 这 一 点 。 一 个 简单 的 方法 是 ， 要 求 对 象 实现 初始 化 方法 ， 并 让 
这 个 类 在 每 个 新 创建 的 对 象 上 调用 此 初始 化 方法 。 我 们 将 采用 如 下 约定 : 如 

果 create 消息 没有 和 参数， 那么 我 们 不 调用 初始 器 (因此 使 用 默认 值 ) 。 如 果 有 参 
数 传 入 ， 我 们 就 用 这 些 参 数 调用 初始 器 ( 称 之 为 initialize ) 


-> 


(入 (msg . vals) 
(case msg 
[(create) 
(if (null? vals) 
(make-obj class 
(make-hash (list (cons 'f init) ...))) 
(let ((object (make-obj class (make-hash)))) 
(apply ((cdr (assoc 'initialize methods)) object) val 
S ) 
object ) ) 
RD 


我 们 可 以 改进 实例 化 类 的 辅助 函数 ， 使 其 接受 可 变数 目的 参数 : 


(define (new class . init-vals) 
(apply class 'create init-vals)) 


来 试 试看 : 


(define Point 
(CLASS ([field x 0]) 
([method initialize (nx) (-> self x! nx)] 
[method x? () (? x)] 
[method x! (nx) (! x nx)] 
[method move (n) (-> Self x! (+ (-> self x?) n))]))) 


(define p (new Point 5)) 


move 10) 
x?) 


5.6 匿名 类 ， 局 部 类 和 庶 套 类 


我 们 扩展 了 Scheme， 引 入 了 类 。 扩 展 的 方式 类 似 于 之 前 的 对 象 系统 ， 类 表示 为 一 
等 (first-class ) 有 函数。 这 意味 着 ， 我 们 语言 中 的 类 是 一 等 的 实体 ， 例 如 可 以 作为 参 
数 传 递 (参见 前 面 create 函数 的 定义 ) 。 另 外 ， 我 们 的 系统 也 支持 匿名 类 和 骨 套 
的 类 。 当 然 ， 这 一 切 都 建立 在 遵从 词法 作用 域 规则 的 基础 上 。 


(define (cst-class-factory cst) 

(CLASS () ([method add (n) (+ n cst)] 
[method sub (n) (- n cst)] 
[method mul (n) (* n cst)]))) 


(define 0ps10 (cst-class-factory 10)) 
(define Ops100 (cst-class-factory 100)) 


> (-> (new Ops10) add 10) 
20 
> (-> (new Ops100) mul 2) 
200 


我 们 也 可 以 在 局 部 作用 域 中 引入 类 。 也 就 是 说 ， 不 同 于 类 是 全 局 可 见 的 一 阶 实体 的 
语言 ， 我 们 可 以 在 局 部 作用 域 中 定义 类 。 


(define doubleton 
(let ([the-class (CLASS ([field x 0]) 
([method initialize (x) (-> self x! x) 


[method x? () (? x)] 
[method x! (new-x) (! x new-x)]))]) 
(let ([obj1i (new the-class 1)] 
[obj2 (new the-class 2)]) 
(cons obj1 obj2)))) 


> (-> (cdr doubleton) x?) 
2 


在 这 里 ， 引 入 the-class 的 的 目的 仅 在 于 创建 两 个 实例 ， 然 后 以 对 的 形式 返回 这 
两 个 实例 。 在 那 之 后 ， 这 个 类 就 不 再 可 用 了 。 换 种 说 法 ， 无 法 再 创建 这 个 类 的 更 多 
实例 了 。 不 过 ， 我 们 创建 的 这 两 个 实例 当然 仍然 指向 它们 的 类 ， 因 此 这 些 对 象 仍 可 
以 使 有 用。 有趣 的 是 ， 一 旦 这 些 对 象 被 垃圾 收集 ， 他 们 的 类 也 可 以 被 收回 。 


6 继承 


既然 有 了 类 ， 我 们 可 能 需要 一 个 类 似 于 委托 的 机 制 ， 以 便 能 够 重用 和 选择 性 地 改善 
现 有 的 类 。 因 此 ， 我 们 扩展 对 象 系统 ， 支 持 类 继承 (class inheritance ) 。 我 们 将 
会 看 到 ， 有 许多 问题 需要 处 理 。 像 往常 一 样 ， 我 们 将 逐步 讨论 。 


6.1 类 的 层次 结构 


先 来 引入 一 个 类 扩展 另 一 个 类 的 能 力 〈 称 为 它 的 超 类 (Superclass)) 。 这 里 只 讨论 
单一 继承 (single inheritance ) ， 一 个 类 只 扩展 一 个 类 。 


多 重 继承 。C++ 


结果 就 是 ， 类 被 组 织 成 层次 结构 。 一 个 类 的 所 有 (传递 性 的 ) 超 类 被 称 为 其 祖先 ; 
对 等 的 ， 一 个 类 的 传递 子 类 (subclass) 集 称 为 它 的 后 代 。 


例如 : 


(define Point 
(CLASS extends Root 
([field x 0]) 
([method x? () (? x)] 
[method x! (new-x) (! x new-x)] 
[method move (n) (-> self x! (+ (-> self x?) n))]))) 


(define ColorPoint 
(CLASS extends Point 
([field color 'black]) 
([method color? () (? color)] 
[method color! (clr) (! color cilr)]))) 


6.2 方法 查找 


当 给 对 象 发 送 消息 时 ， 我 们 在 它 的 类 中 查找 实现 此 消息 的 方法 ， 然 后 调用 之 。 反 映 
到 CLASS 宏 的 定义 中 就 是 : 


[(invoke) 
(if (assoc (second vals) methods) 
(apply ((cdr (assoc (second vals) methods)) (first vals)) ( 
cddr vals)) 
(error "message not understood"))] 


有 了 继承 ， 在 对 象 收 到 一 个 在 其 类 中 找 不 到 方法 的 消息 时 ， 我 们 可 以 在 超 类 中 寻找 
方法 ， 并 依 此 类 推 。 首 先 ， invoke 协议 需要 修改 ， 将 其 分 成 两 步 : 第 一 步 

是 lookup (查找 ) ， 包 括 当 前 类 中 没有 找到 方法 时 在 超 类 中 进行 查找 ， 第 二 步 是 
实际 的 invoke 步骤 。 


(defmac (CLASS extends superclass 
([field f init] ...) 
([method m params body] ...)) 
#:keywords field method extends 
#:captures self ? ! 
(let ([scls superclass | 
(methods 
(local [(defmac (? fd) #:captures self 
((obj-class self) 'read self 'fd)) 
(defmac (! fd v) #:captures self 
((obj-class self) 'write self 'fd v))] 
(list (cons 'm (A (self) 
(A params body))) ...)))) 
(letrec ([class (入 (msg . vals) 


(case msg 
[(invoke) 
(let ((method (class 'lookup (second va 
1s)))) 
(apply (method (first vals)) (cddr va 
1s)))] 
[(lookup) 
(let ([found (assoc (first vals) method 
s)]) 
(if found 
(cdr found) 
(scls 'lookup (first vals))))]))] 
class))) 


CLASS 语法 抽象 扩展 了 ， 加 了 extends 子 句 (这 是 类 定义 中 新 的 关键 字 ) 。 试 
用 这 个 抽象 之 前 ， 我 们 需要 在 树 的 顶部 定义 一 个 根 类 ， 以 终结 方法 查找 的 过 程 。 如 
下 的 Root 类 就 可 以 : 


(define Root 
(入 (msg . vals) 


(case msg 
[(lookup) (error "message not understood:" (first vals))] 
[else (error "root class: should not happen: ”msg)])) 


Root 直接 实现 为 函数 而 不 使 用 CLASS 形式 ， 所 以 我 们 无 需 指 定 它 的 超 类 ( 它 也 
没有 ) 。 如 果 收 到 lookup 消息 ， 它 会 给 出 消息 无 法 理解 的 错误 。 请 注意 ， 在 此 系 
统 中 ， 除 了 lookup 以 外 的 任何 消息 发 送 到 根 类 都 是 错误 。 


来 看 一 个 非常 简单 的 类 继承 的 例子 : 


(define A 
(CLASS extends Root () 
([method foo () "foo"] 
[method bar () "bar"]))) 
(define B 
(CLASS extends A () 
([method bar () "B bar"]))) 


> (define b (new B)) 
> (-> b foo) 

wfoou 

> (-> b bar) 

"B bar" 


看 起 来 都 对 了 : 向 B 发 送 其 不 理解 的 消息 效果 正如 预期 ， 并 且 发 送 bar 的 结果 

是 B 中 调整 过 而 不 是 A 中 的 方法 被 执行 。 换 一 种 说 法 ， 方 法 调用 被 正确 的 延迟 绑 
定 (late binding) 。 我 们 说 ，B 中 的 bar 方法 徐 盖 (override) 了 A 中 定义 的 

同名 方法 。 


再 来 看 个 稍微 复杂 一 点 的 例子 : 


> (define p (new Point)) 
> (-> p move 10) 

> (-> p x?) 

10 


来 试 试 ColorPoint 


> (define cp (new ColorPoint)) 

> (-> cp color! 'red) 

> (-> cp color?) 

'red 

> (-> cp move 5) 

hash-ref: no value found for key 
key: 'x 


发 生 了 什么 ?了 看 来 ， 我 们 不 能 使 用 ColorPoint 的 x 字段 。 好 吧 ， 我 们 还 没有 讨 
论 过 在 继承 中 如 何 处 理 字 段 。 


6.3 字段 和 继承 


来 看 一 下 我 们 目前 是 怎么 处 理 对 象 创建 的 : 


[(create ) 
(make-obj class 
(make-hash (list (cons 'f init) ...)))] 


问题 就 在 这 里 : 在 字典 中 我 们 只 初始 化 了 当前 类 声明 的 字段 的 值 ! 还 需要 对 祖先 类 
的 字段 值 进 行 初始 化 。 


6.3.1 继承 字段 


对 象 应 该 包含 其 祖先 声明 的 所 有 字段 的 值 。 因 此 ， 当 创建 类 时 ， 我 们 应 该 确定 它 的 
实例 的 所 有 字段 。 要 做 到 这 一 点 ， 我 们 必须 扩展 类 ， 使 其 保留 所 有 字段 的 列表 ， 并 
能 够 将 该 信息 提供 给 任何 需要 的 子 类 。 


(defmac (CLASS extends superclass 
([field f init] ...) 
([method m params body] ...)) 
#:Kkeywords field method extends 
#:captures self ? ! 
(let* ([scls superclass | 
[methods ....] 
[fields (append (scls 'all-fields) 
(list(cons yy FT ina DD 
(letrec 
([class (入 (msg . vals) 
(case msg 
[(all-fields) fields] 
[(create) (make-obj class 
(make-hash fields))] 
…))])))) 


在 类 的 词法 环境 中 ， 我 们 引入 新 的 fields 标识 符 。 该 标识 符 绑 定 到 类 的 实例 应 该 
有 的 全 部 字段 的 列表 。 要 获取 超 类 的 所 有 字段 ， 只 要 向 其 发 送 all-fields 消息 
(其 实现 简单 地 返回 绑 定 到 fields 的 表 ) 。 创 建 对 象 时 ， 我 们 就 要 用 这 些 字段 来 
创建 新 的 字典 。 


因为 我 们 给 类 的 词汇 表 增 加 了 新 消息 ， 所 以 需要 想 想 如 果 Root 收 到 这 个 消息 该 怎 
么 处 理 : 它 的 所 有 字段 是 什么 ? 必须 是 空 表 ， 因 为 我 们 不 加 分 辩 地 使 用 
了 append 


(define Root 
(入 (msg . vals) 


(case msg 
[(lookup) (error "message not understood:" (first vals 
))] 
[(all-fields) '()] 
[else (error "root class: should not happen: " msg)]))) 
来 试 试 这 是 否 有 效 : 


> (define cp (new ColorPoint ) ) 
> (-> cp color! 'red) 

> (-> cp color?) 

'red 

> (-> cp move 5) 

> (-> cp x?) 

5 


太 好 了 ! 


6.3.2 字段 的 绑 定 


实际 上 ， 还 有 一 个 问题 我 们 没有 考虑 过 : 如 果子 类 定义 了 一 个 字段 ， 其 名 字 已 经 存 
在 于 其 祖先 之 一 ， 会 发 生 什 么 ? 


(define A 
(CLASS extends Root 
([field x 1] 
[field y 0]) 
([method ax () (? x)]))) 
(define B 
(CLASS extends A 
([field x 2]) 
([method bx () (? x)]))) 


(define b (new B)) 
(-> b ax) 


(-> b bx) 


在 这 两 种 情况 下 ， 返 回 的 都 是 绑 定 到 B 的 x 字段 的 值 。 换 句 话说 ， 和 方法 一 样 ， 
字段 也 是 延迟 绑 定 的 。 这 合理 吗 ? 


我 们 来 想 一 想 : 对 象 的 目的 是 将 一 些 〈 可 能 可 变 的 ) 状态 封装 在 适当 的 程序 接口 
(方法 ) 之 后 。 显 然 ， 对 方法 延迟 绑 定 是 理想 的 ， 因 为 方法 是 对 象 的 外 部 接口 。 那 
么 字段 呢 ? 字段 应 该 是 隐藏 的 、 对 象 的 内 部 状态 一 一 换 种 说 法 ， 实 现 的 细节 ， 而 不 
是 公开 的 接口 。 其 实 ， 请 注意 我 们 的 语言 到 目前 为 止 ， 甚 至 不 能 访问 另 一 个 对 象 
除 self 之 外 的 的 字段 ! 那么 ， 至 少 ， 对 字段 的 延迟 绑 定 是 值得 疑问 的 。 





私有 方法 应 该 延 时 绑 定 吗 ? 他 们 是 延迟 绑 定 的 吗 ? 


来 看 一 下 委托 是 怎么 处 理 字段 的 ? 那里， 字段 只 是 函数 的 自由 变量 ， 所 以 它们 遵从 
词法 作用 域 。 对 字段 来 说 ， 这 是 更 合理 的 语义 。 在 类 中 定义 方法 时 ， 其 根据 该 类 中 
直接 定义 的 字段 或 其 超 类 中 的 字段 。 这 里 的 道理 是 ， 因 为 所 有 这 些 都 是 在 编写 类 定 
义 的 时 候 已 知 的 信息 。 延 迟 绑 定 字段 意味 着 对 方法 中 的 所 有 自由 变量 重新 引入 了 动 
态 作 用 域 : 有 趣 的 错误 之 源 和 头痛 的 来 源 ! ( 想 想 这 样 的 例子 ， 子 类 意外 地 引入 与 
超 类 中 已 有 名 称 一 样 的 字段 ， 从 而 导致 混乱 。) 


6.3.3 字段 氮 获 


本 节 讨论 如 何 定义 被 称 为 字段 遮蔽 (field shadowing) 的 语义 : 类 的 字段 遮 项 起 类 
的 同名 字段 ， 但 是 方法 总 是 访问 它 所 在 的 类 或 其 祖先 声明 的 字段 。 


具体 来 说 ， 这 意味 着 一 个 对 象 可 以 为 同名 字段 保存 不 同 的 值 ; 使 用 哪 一 个 取决 于 具 
体 执行 的 方法 在 哪个 类 定义 (这 被 称 为 方法 的 宿主 类 (host class)) 。 由 于 这 种 多 重 
性 ， 只 用 一 个 哈 希 表 是 不 够 了 。 赫 代 方 案 ， 我 们 在 类 中 保存 一 份 字段 名 称 的 列表 ， 
并 在 对 象 中 保存 由 值 组 成 的 向 量 (vector) ， 通 过 位 置 访问 向 量 中 的 值 。 字 段 访问 
将 分 两 步 完 成 : 首先 根据 名 称 列 表 确 定 字段 的 位 置 ， 然 后 访问 对 象 中 值 向 量 对 应 位 
置 的 值 。 


例如 ， 对 于 上 面 的 类 A ， 名 称 列 表 是 '(x y) ， 人 A 一 个 实例 的 值 向 量 

是 #(1 9) 。 对 于 B 类 ， 名 称 列表 是 '(x y x) ， 一 个 实例 的 值 向 量 

是 #(1 9 1) 。 以 这 种 方式 保持 字段 的 优点 是 ， 在 没有 遮蔽 的 情况 下 ， 字 段 总 是 在 
对 象 内 相同 的 位 置 中 。 


要 遵从 遮蔽 的 语义 ， 我 们 (至少 ) 有 两 个 选项 。 一 种 方法 ， 我 们 可 以 将 被 遮蔽 字段 
重 命 ， 例 如 B 中 的 字段 名 变 成 '(x0 y x) ， 这 样 B 中 的 方法 及 其 后 代 只 能 

到 x 也 就 是 B 中 引入 的 字段 的 最 新 定义 。 另 一 种 方法 是 保持 字段 名 不 
变 ， 查 找 从 字段 列表 尾部 开始 : 也 就 是 说 ， 我 们 希望 在 名 称 列表 中 找到 字段 名 最 后 
的 位 置 。 这 里 我 们 选择 后 一 种 方案 。 








修改 CLASS 的 定义 ， 以 引入 向 量 和 字段 查找 策略 : 


[(create ) 
(let ([values (list->vector (map cdr fields))]) 
(make-obj class values))] 

[(read) 

(vector-ref (obj-values (first vals)) 
(find-last (second vals) fields) )] 

[(write) 

(vector-set! (obj-values (first vals)) 
(find-last (second vals) fields) 
(third vals))] 


创建 对 象 时 ， 我 们 用 初始 字段 值 构造 向 量 。 然 后 ， 访 问 字 段 时 ， 我 们 
用 find-last 返回 的 位 置 来 访问 此 向 量 。 不 过 ， 试 一 下 就 知道 ， 此 路 不 通 1 语义 
和 之 前 一 样 ， 还 是 错误 的 。 


为 什么 呢 ? 回忆 一 下 我 们 是 怎么 处 理 字段 访问 的 ， 即 怎么 去 除 ? 语法 糖 : 


(defmac (? fd) #:captures self 
((obj-class self) 'read self 'fd)) 


这 里 写 的 表达 式 是 ， 先 询问 self 是 哪个 类 ， 然 后 发 送 给 该 类 read 消息 。 咽 ， 
但 是 self 是 动态 绑 定 到 接收 方 对 象 的 ， 所 以 我 们 总 是 在 要 求 原 来 的 类 访问 字段 |! 
错误 在 这 里 。 不 应 将 read 消息 发 送 给 接收 方 的 类 ， 而 是 发 送 给 方法 的 宿主 类 。 怎 
么 实现 呢 ? 需要 一 种 方法 ， 从 方法 体 找到 它 的 宿主 类 ， 或 者 更 好 的 办 法 ， 直 接 访 问 
宿主 类 的 字段 列表 。 


我 们 可 以 将 字段 列表 放 在 方法 的 词法 环境 中 ， 就 像 self 那样 ， 但 这 样 的 话 程序 员 
可 能 会 意外 地 影响 绑 定 (与 之 相反 ， self 一 般 是 面向 对 象 语 言 中 的 关键 字 ) 。 字 
段 列 表 (以 及 绑 定 它 的 名 称 ) 应 该 是 我 们 的 实现 内 部 的 东西 。 既 然 我 们 在 类 中 局 部 
定义 了 ? 和 ! ， 可 以 简单 地 将 字段 列表 fields 限定 在 这 些 语 法 定义 的 范围 

内 ; 由 宏观 的 卫生 扩展 来 确保 用 户 代 码 不 可 能 意外 地 影响 fields 。 


(let* ([Scls superclass] 
[fields (append (scls 'all-fields) 
(list (cons 'fd val) ...))] 
[methods 
(local [(defmac (? fd) #:captures self 
(vector-ref (obj-values self) 
(find-last 'fd fields))) 
(defmac (! fd v) #:captures self 
(vector-set! (obj-values self) 
(find-last 'fd fields) 
v))] 
…)])) 


这 个 实现 并 不 理想 ， 因 为 每 次 字段 访问 都 会 调用 find-last  ( 宛 贵 /线性 开 
销 ) 。 可 以 避免 吗 ? 如 何 避 免 ? 


请 注意 ， 我 们 现在 直接 访问 fields 表 ， 所 以 无 需 再 向 类 发 送 字 段 访问 消息 。 对 于 
写 入 字段 也 是 一 样 。 


(define A 
(CLASS extends Root 
([field x 1] 
[field y 0]) 
([method ax () (? x)]))) 
(define B 
(CLASS extends A 
([field x 2]) 
([method bx () (? x)]))) 


(define b (new B)) 
(-> b ax) 


(-> b bx) 


6.4 清理 类 协议 
我 们 引入 类 之 后 ， 又 对 它 的 协议 (protocol) 做 了 不 少 改 变 : 


e@ 通过 引入 lookup 将 invoke 协议 分 成 两 部 分 ， lookup 专门 用 于 在 类 的 层 
次 结构 中 查找 方法 定义 。 

e 为 了 能 够 检索 类 的 字段 ， 添 加 了 all-fields 。 构 建 类 的 时 候 通过 它 获取 超 
类 的 字段 列表 ， 追 加 到 当前 定义 的 类 的 字段 列表 。 

e@ 去 除了 字段 访问 的 read / write 协议 ， 以 便 正 确 地 确定 方法 中 的 字段 名 称 的 
作用 域 。 


现在 是 时 候 反思 一 下 类 协议 ， 看 看 这 里 的 协议 是 不 是 最 小 化 的 ， 还 是 可 以 去 掉 一 些 
部 分 。 判 断 的 标准 是 什么 ? 既然 我 们 正在 讨论 类 的 协议 ， 它 最 好 确实 是 依赖 于 类 来 
处 理 消息 。 例 如 ， 之 前 介绍 的 read / write 协议 就 可 以 删除 。 回 忆 一 下 : 


[(read) (dict-ref (obj-values (first vals)) (second vals) )] 
[(write) (dict-set! (obj-values (first vals)) (second vals) 
(third vals))] 


这 里 有 任何 东西 依赖 于 类 函数 中 的 自由 变量 (或 者 说 ， 依赖 于 类 对 象 的 状态 ) 吗 ? 
没有 ， 唯 一 需要 的 输入 是 当前 对 象 、 要 访问 的 字段 的 名 称 ， 以 及 可 能 写 入 的 值 。 因 
此 ， 我 们 可 以 直接 把 这 些 代码 放 在 ? 和 ! 的 展开 中 ， 从 而 有 效 地 "编译 掉 " 一 层 不 
必要 的 解释 。 


那么 invoke 呢 ? 来 看 看 ， 它 唯一 做 的 是 给 自己 发 送 一 条 消息 ， 这 个 可 以 直接 在 
扩展 -> 时 做 ， 这 样 调用 本 质 上 就 独立 于 类 了 : 


(defmac (-> om arg ...) 
(let ([obj oj] ) 
((((obj-class obj) 'lookup 'm) obj) arg ...))) 


类 协议 的 其 他 部 分 呢 ? all-fields 、 create 和 lookup 都 访问 了 类 的 内 部 状 
态 : all-fields 访问 了 fields ; create 访问 了 fields 和 class 本 

身 ; lookup 访问 了 methods 和 superclass 。 所 以 ， 我 们 的 类 只 需要 了 解 这 
三 种 信息 。 


6.5 发 消息 给 超 类 


个 方法 履 盖 (override) 超 类 中 的 方法 时 ， 有 时 候 需 要 能 调用 超 类 中 的 定义 。 
做 就 可 以 支持 许多 典型 的 改进 模式 ， 例如 在 执行 方法 之 前 或 之 后 添加 要 做 
的 事情 ， 比 如 对 其 参数 和 返回 值 的 进一步 处 理 等 等 。 这 被 称 作 给 超 类 发 送 (super 
send) 。 我 们 选择 --> 作为 给 超 类 发 送 的 语法 。 


先 来 看 一 个 例子 : 


(define Point 
(CLASS extends Root 
([field x 0]) 
([method x? () (? x)] 
[method x! (new-x) (! x new-x)] 
[method as-string () 
(string-append "Point(" 
(number->string (? x)) ")")])) 
) 


(define ColorPoint 
(CLASS extends Point 
([field color 'black]) 
([method color? () (? color)] 
[method color! (clr) (! color cilr)] 
[method as-string () 
(string-append (--> as-string) "-" 
(symbol->string (? color)))])) 
) 


> (define cp (new ColorPoint)) 
> (-> cp as-string) 
"Point(0)-black" 


请 注意 ， 给 超 类 发 送 使 我 们 能 够 在 ColorPoint 的 定义 中 重用 和 扩 
展 Point 中 as-string 的 定义 。 在 Java 中 ， 这 是 通过 对 super 调用 方法 来 
完成 的 ， 但 完 竟 super 是 什么 ?3 给 超 类 发 送 的 语义 是 什么 ? 


首先 要 洪 清 的 是 : 给 超 类 发 送 的 接收 者 是 哈 ?在 上 面 的 例子 中 ， 当 使 

用 --> 时 ，as-string 发 送 给 了 哪个 对 象 ? self |! 事实 上 ， super 只 影响 

了 方法 查找 。 一 个 常见 的 误解 是 ， 在 执行 给 超 类 发 送 时 ， 方 法 查找 从 接收 方 的 超 类 
开始 ， 而 不 是 从 它 的 类 开始 。 我 们 来 构造 一 个 小 例子 ， 看 看 为 什么 这 是 不 正确 的 : 


(define A 
(CLASS extends Root () 
([method m () "A"]))) 


(define B 
(CLASS extends A () 
([method m () (string-append "B™" (--> m) "B")]))) 


(define C 
(CLASS extends B () ())) 


(define c (new C)) 
(-> cm) 


这 个 程序 返回 什么 ?我 们 来 研究 一 下 。 -> 展开 为 发 送 lookup 给 c 的 类 ， 也 就 
是 Cs。 在 CC 中 没有 m 方法 ， 所 以 转 而 发 送 lookup 给 其 超 类 ，B 。B 找 

到 m 对 应 的 方法 ， 并 返回 之 。 下 一 步调 用 此 方法 ， 第 一 个 参数 是 当前 

的 self (也 就 是 c ) ， 接 下 来 是 消息 的 参数 ， 在 这 里 为 室 。 对 这 个 方法 求 值 就 
需要 对 string-append 的 三 个 参数 求 值 ， 其 中 第 二 个 参数 是 给 超 类 发 送 。 如 果 使 
用 上 述 给 超 类 发 送 的 定义 ， 那 么 m 不 是 在 C (接收 方 的 实际 类 ) 中 查找 ， 而 是 
在 B ( 它 的 超 类 ) 中 查找 的 。 B 中 有 m 方法 吗 ? 是 的 ， 我 们 正在 执行 的 就 是 
它 ...... 换 名 话说， 如果 这 么 理解 super ， 上 述 程序 将 不 会 终止 。 


一 些 动态 语言 ， 比 如 Ruby， 多 许 在 运行 时 改变 类 的 继承 关系 。 这 在 基于 原 
语言 (如 Self 和 JavaScript) 中 很 常见 。 


错 在 哪里 ?给 self 发 送 时 ， 不 应 该 在 接收 方 的 超 类 中 查找 方法 。 在 这 个 例子 中 ， 
我 们 应 该 在 A 而 不 是 在 B 中 查找 m 。 为 此 ， 我 们 需要 知道 执行 给 超 类 发 送 的 方 
法 的 宿主 类 的 超 类 。 这 个 值 应 该 是 在 方法 体 中 静态 绑 定 还 是 动态 绑 定 的 ?我 们 刚才 
已 经 说 过 了 : 它 是 方法 的 宿主 类 的 超 类 ， 不 可 能 动态 改变 (至少 在 我 们 的 语言 中 如 
此 ) 。 好 在 在 方法 的 词法 环境 中 ， 已 经 有 了 指向 超 类 的 绑 定 ， scls 。 所 以 ， 我 们 
只 需要 引入 新 的 局 部 宏 --> ， 其 展开 请 求 超 类 scls 来 查找 消息 。 --> 可 以 被 

用 户 代 码 使 用 ， 所 以 它 要 被 添加 到 #:captures 标识 符 列表 中 : 


河 
党 
bn) 
< 个 


(defmac (CLASS extends superclass 
([field f init] ...) 
([method m params body] ...)) 
#:keywords field method extends 
#:captures self ? ! --> 
(let* ([scls superclass | 
[fields (append (scls 'all-fields) 


(list (cons 'f init) ...))] 
[methods 
(local [(defmac (? fd) ....) 
(defmac (! fd v) ....) 


(defmac (--> md . args) #:captures self 
(((scls 'lookup 'md) self) . args))] 
....)]))) 


请 注意 ， lookup 现在 被 发 送 到 当前 正在 执行 的 方法 的 宿主 类 的 超 类 scls ， 而 
不 是 当前 对 象 的 实际 类 。 


> (define c (new C)) 
> (->c m) 
"BAB" 


6.6 继承 和 初始 化 


之 前 已 经 讨论 过 ， 通 过 引 入 称 为 初始 器 的 特殊 方法 9 来 初始 化 对 外 一 旦 对 象 被 创 
建 ， 在 被 返回 给 创建 者 之 前 ， 需 要 调用 它 的 初始 器 。 


现在 有 了 继承 ， 这 个 过 程 变 复杂 了 一 点 ， 因 为 如 果 初 始 器 能 相互 履 盖 ， 可 能 会 忽略 
一 些 必要 的 初始 化 工作 。 初 始 器 的 工作 可 能 非常 具体 ， 我 们 希望 避免 子 类 必须 处 理 
所 有 的 细节 。 可 以 假定 其 语义 和 一 般 方 法 的 语义 一 样 ， 那 么 子 类 中 

的 initialize 可 以 根据 需要 调用 超 类 的 初始 器 。 这 种 自由 导致 的 问题 是 ， 在 继 
承 的 字段 还 没有 一 致 地 初始 化 时 ， 子 类 中 的 初始 器 就 可 能 开始 处 理 对 象 了 。 为 了 避 
免 这 个 问题 ， 在 Java 中 ， 构 造 函 数 做 的 第 一 件 事 必须 是 调用 超 类 的 构造 函数 ( 它 可 
以 先 计算 此 调用 的 参数 ， 仅 此 而 已 ) 。 即 使 不 在 源 代码 中 明确 写 出 ， 编 译 器 也 会 添 
加 这 个 调用 。 事 实 上 ， 在 VM (虚拟 机 ) 层面 字 节 码 验证 器 也 会 检验 这 一 点 : 

此 ， 底 层 的 节 码 操作 也 无 法 绕 开 对 超 类 构造 函数 的 调用 。 


7 充满 可 能 的 世界 


本 书 在 Scheme 中 简 单 地 逐步 构建 了 对 象 系统 9 但 我 们 只 阐述 了 面向 对 象 编程 语言 
的 一 些 基本 概念 。 在 语言 设计 中 ， 总 是 存在 各 种 各 样 的 可 能 性 有 待 探索 ， 比 如 同样 
的 想法 的 变种 、 延 伸 等 。 


这 里 给 出 一 些 (有 限 的 /随意 挑选 的 ) 特性 和 机 制 ， 你 可 以 在 某 些 现 有 的 面向 对 象 编 
程 语 言 中 找到 ， 但 在 我 们 的 讨论 中 没有 涉及 。 你 可 以 试 试 将 其 集成 到 对 象 系统 中 。 
当然 ， 更 有 意思 的 是 ， 你 该 自己 去 思考 其 他 特性 ， 还 有 研究 现 有 的 语言 并 弄 清楚 如 
何 整合 其 独特 的 特性 。 


方法 的 可 见 性 : public / private 

声明 履 盖 超 类 中 方法 的 方法 : override 

声明 不 能 被 覆盖 的 方法 : final 

声明 预期 将 被 继承 的 方法 : inherit 

可 扩展 的 方法 :inner 

接口 (Interface) : 能 理解 的 消息 的 集合 
检查 某 个 对 象 是 否 是 某 个 类 的 实例 的 协议 ， 检 查 某 个 类 是 否 实现 某 个 接口 的 协 
DO 

超 类 的 正确 初始 化 协议 ， 实 名 初始 化 属性 
多 重 继承 

Mixins 

Traits 

类 作为 对 象 ， 元 类 (metaclass) ，...... 


还 有 许多 优化 ， 例 如 : 


e。 计算 字段 的 偏 移 量 (offset) ， 以 直接 访问 字段 
@ 用 于 直接 方法 调用 的 虚 有 函数 表 (vtable) 和 索引 (indice ) 


这 里 以 习题 的 形式 介绍 两 种 机 制 ， 接 口 和 mixin， 以 及 它们 的 组 合 (即使 用 接口 实现 
mixin 规 范 ) 。 


7.1 接口 

(在 我 们 的 语言 中 ) 实现 新 的 语法 形式 ， 定 义 接口 ， 接 口 可 以 扩展 超 接口 : 
(interface (superinterface-expr ...) id ...) 

实现 新 的 语法 形式 ， 类 可 以 实现 (多 个 ) 接口 : 


(CLASS* Super-expr (interface-expr ...) decls ...) 
;decls 为 类 主体 中 的 申明 


例如 : 


(define positionable-interface 
(interface () get-pos set-pos move-by)) 


(define Figure 
(CLASS* Root (positionable-interface) 
:...)) 


扩展 类 的 协议 ， 使 之 能 检查 茶 个 类 是 否 实 现 了 茶 个 接口 : 


> (implements? Figure positionable-interface) 
#t 


7.2 Mixin 


Mixin 是 将 超 类 参数 化 的 类 声明 。 当 类 的 继承 层次 结构 中 存在 共享 部 分 ， 而 单 继承 又 
不 足以 表达 时 ，mixin 可 以 组 合 创建 新 类 。 
因为 我 们 的 类 由 六 数 实现 的 ， 是 一 等 的 值 (first-class value) ， 所 以 mixin 的 实现 
是 "免费 的 "。 

(define (foo-mixin cl) 


(CLASS cl (....) (....))) 


(define (bar-mixin cil) 
(CLASS cl (....) (....))) 


(define Point (CLASS () ....)) 
(define foobarPoint 


(foo-mixin (bar-mixin Point))) 
(define fbp (foobarPoint 'create)) 


Mixin 和 接口 结合 ， 可 以 检查 给 定 的 基 类 是 否 实现 了 一 组 特定 的 接口 。 定 义 MIXIN 语 
法 形式 : 


(MIXIN (interface-expr ...) decl ...) 


ee 其 输入 是 基 类 ， 先 检查 该 基 类 实现 了 所 有 指定 的 接口 ， 然 后 返回 
(用 给 定 的 声 明 ) 扩展 基 类 所 得 时 的 新 类 。 


7. 充满 可 能 的 世界 
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